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ABSTRACT 


The main goal of this project is to present my investigation of finite images of 
the progenitor 2*” : N for various N and several values of n. We construct each image 
by using the technique of double coset enumeration and give a proof of the isomorphism 
type of the image. We obtain the group 7? : Dg as a homomorphic image of the 
progenitor 2*!4 : Dy4, we obtain the group 24 : (5 : 4) as a homomorphic image of the 
progenitor 2*° : (5:4), we obtain the group (10 x 10) : ((3 x 4) : 2) as a homomorphic 
image of the progenitor 2*! : (15x 4), we obtain the group PGL(2, 7) as a homomorphic 
image of the progenitor 2*’ : Dj4, we obtain the group Sg as a homomorphic image of 
the progenitor 2*° : (5: 4), and we obtain the group $7 as a homomorphic image of the 


progenitor 2*' : (15: 4). Also, have given some unsuccessful progenitors. 


lv 


ACKNOWLEDGEMENTS 


First of all, I would like to thank Dr. Zahid Hasan who is my advisor for this 
project. I am thankful for your guidance. You led me down the right path with your 


immense source of patience and motivation. 


I would also like to thank Dr. Joseph Chavez and Dr. Wenxiang Wang for 
having such influential roles in the thesis committee and for encouraging me to finish 
this project. I must also extend my gratitude to Dr. Corey Dunn and Dr. Charles 


Stanton for guiding me through my academic career as I pursued my graduate degree. 


Finally, I cannot thank my family enough for their amazing support. 
My academic achievements would not have been obtained without my husband and 


daughter, Jacob and Cherrie. 


Table of Contents 


Abstract 


Acknowledgements 


List of Figures 


Introduction 


1 


Preliminaries 


1.1 Group Theory Preliminaries. ............ 
1.2 Group Extension Preliminaries ........... 
1.3. THeOrems: 25.2 eg ei be be Eee ete oS Gee Se 
TA. Wenimase <a: a. Ye say esck BR Bcaiy OE Vs dee 4 
1.5 Preliminary for Monomial Presentations ...... 


Construction of 7? : Dé 


2.1 Double Coset Enumeration of 77: Dg........ 
9.2 Proof of G27? 2 De ssh Gb EM ewe haa ees 
2.3 Magma, Work for (7 2 De vot aok as See eS 


Construction of 21 : (5: 4) 


3.1 Double Coset of Enumeration of 24:(5:4) .... 
B2.  PReGh.OPG 0s (Be Ay ye a rsehod Ge Why Hg 
3.3 Magma Work for 2° (524) one ce eG 


Construction of (10 x 10) : ((3 x 4) : 2) 


4.1 Double Coset Enumeration of (10 x 10) : ((3 x 4) : 2) 
A2.. Proof ar.G = (10% 10); (8 x 4). 2) 38 es ed 8 


Construction of PGL(2,7) 


5.1 Double Coset Enumeration of PGL(2,7)...... 


iii 


iv 


vii 


6 Construction of S¢ 
6.1 Double Coset Enumeration of Sg .......... 0.0000 2 eee 
6.2°: (PrOOLOL.G SiS Ges ee ae me Ho oh alee en es BO So ee 
6.3. Magma Work for $6 2... 63@ 6 eb ee Da ee be ae 


7 Construction of S7 over (15: 4) 
7.1 Double Coset Enumeration of $7 over (15:4) 2... 2.2.0... ..000. 
hed RP POOLOL GS S728 ohne hin Ge bes ee a Bs Steen bd ih, eke ae es 


8 Unsuccessful Progenitors 

Appendix A Magma Work for 2°: (5: 4) 

Appendix B Magma Work for 57 

Appendix C Magma Work for (10 x 10) : ((3 x 4) : 2) 
Appendix D Magma Work for Sym(15) 

Appendix E Magma Work for S¢ 


Bibliography 


vi 


68 
68 
71 
72 


81 
81 
86 


87 


95 


101 


223 


255 


261 


269 


Vil 


List of Figures 


2.1 


3.1 


4.1 


5.1 


6.1 


7.1 


Cayley diderant of 7° De Over sDie ite. oo lnk de Se we ke BEY 17 
Cayley-diagram of of 2°: (55-4) over (54) a 0:¢ spas ewan tose wee 42 
Cayley diagram of (10 x 10) : ((3 x 4): 2) over (15:4) .......0.. 54 
Cayley diagram of PGLQ,7) over Digs es eee ee Pak hae wes 67 
Cayley diagram’ ot S¢ over (594) ).4.o 206.2 a lee de ha de wee ewe 71 


Cayley diagram of $7-over (15:4). 22 Peewee awe oe ly Oe 86 


Introduction 


A progenitor is an infinite semi-direct product of the form m*” : N, where 
N < S, and m*" : N is a free product of n copies of a cyclic group of order m. It is 
known that a progenitor of this type gives some very important finite groups, including 
simple group as homomorphic images. 
The main goal of this is present my investigation of finite images of the progenitor 
2*" : N for various N and several values of n. 
We construct each image by using the technique of double coset enumeration and give 
a proof of the isomorphism type of the image in chapter 2, we obtain the group 7? : Dg 
as a homomorphic image of the progenitor 2*!4 : D,4, in chapter 3, we obtain the group 
2* : (5: 4) as a homomorphic image of the progenitor 2*° : (5 : 4), in chapter 4, we 
obtain the group (10 x 10) : ((3 x 4) : 2) as a homomorphic image of the progenitor 
2*15 : (15 x 4), in chapter 5, we obtain the group PGL(2,7) as a homomorphic image 
of the progenitor 2*" : D4, in chapter 6, we obtain the group S¢ as a homomorphic 
image of the progenitor 2*° : (5 : 4), and in chapter 7, we obtain the group $7 as a 
homomorphic image of the progenitor 2*!° : (15: 4). 


Also, we list some unsuccessful progenitors in chapter 8. 


Chapter 1 


Preliminaries 


1.1 Group Theory Preliminaries 
Definition 1.1. If X is a nonempty set, a permutation of X is a bijection 
o:X +X. 


The set of all permutation of X is a symmetric group. It is denoted by Sy. 


Definition 1.2. A permutation is said to be transposition if it changes two elements 


and fixes the rest. 


Definition 1.3. S, is a symmetric group that composed by all bijective mapping 
o:X > X, where X is a nonempty set. 


Definition 1.4. The alternating group A, is a subgroup of S, with order equal to 
n! 
a 
Definition 1.5. A group G is abelian if every pair a,b € G commutes such as a*b = 


bea 


Definition 1.6. (order of permutation) Let a = (#1,...,%;)(%1,..., vj) € Sx, where 
a is a multiple of two disjoint cycle. The order of a is the least common multiple of the 


i-cycle and the j-cycle. 


lo| = lem(i, j). 


Definition 1.7. Let G and H be groups. A map ¢: G > H is called homomorphism 
if 


a, 8 € G, (a8) = o(a)9(8). 


Definition 1.8. If a homomorphism @ from G onto H is a bijection, ¢ is an tsomor- 


phism. G is isomorphic to H(G = H). 
Definition 1.9. A nonempty subset H of a group G is a subgroup of G if 
h € H implies h-! € H, andh,k € H implieshk CH. H<G. 


Definition 1.10. If H is any subgroup other than G, H is a proper subgroup of G. 


Definition 1.11. Jf H is the subgroup generated by the identity of group G, H is a 
trivial subgroup of G. 


Definition 1.12. Jf G is a group and a € G, then the Cyclic subgroup generated 
by a is the set of all powers of a and it is denoted by <a>. 


Definition 1.13. Let G be a group and K < G. K is a maximal subgroup of G if 
there is no normal subgroup N <G such that K < N <G. 


Definition 1.14. If g © G and ¢ € Sx, then ¢ fixes g if d(x) = g, & moves g if 
O(a) Fg. 


Definition 1.15. Ifa,G € Sn, a and 6 are disjoint if every element moved by one 
permutation is fixed by the other. if 


a(n) #n, then B(m) =m and if a(x) = x, then B(x) # a. 


Definition 1.16. If a permutation interchanges a pair of elements, it is called a trans- 


position. 


Definition 1.17. Let G be a group and x € G, the number of elements in group is the 
order of x and it is denoted by |< a> |. 


Definition 1.18. Let H be a nonempty subset of a group G. Let w € G where w = 
hiths...h&, with hi € H and e, = +1. We say that w is a word on H. 


nm? 


Definition 1.19. Let H be a group. We say H is a direct product of two subgroups 
G and K if: 


eGiIH,K <4; 
e H=GK; 
eGnk = 1, 


Definition 1.20. If H < G and x € G, the subset of G, Hx = {xh : x € H} is the 
right coset of H inG. 


Definition 1.21. Jf H < Gandx eG, HxH = {HxH|x © H} is the double coset 
of G. 


Definition 1.22. [fh” =1 for allh € G, the group G has an exponent n. 
Definition 1.23. A subgroup X < G is normal in G and it is denoted by X IG. 
Definition 1.24. Let x € G, the for x-'gx for x € G is the conjugate of g inG 


Definition 1.25. If X <G, the coset X inG form a group G/X of the order |G : X] 


is called the quotient group. 


Definition 1.26. If x,y € G, the commutator of x and y, [x,y] is [x,y] = xyx~tye!. 


Definition 1.27. The G is called derived subgroup. It is the subgroup of G generated 


by all commutators. 


Definition 1.28. Let G is the group, G41. The group G is simple if it does not have 


normal subgroups other than G and 1. 


Definition 1.29. A group H is a p-group if the order of every element of H is a power 
of p. 


Definition 1.30. Let H be a finite group. If it is an abelian, it is called 


elementary abelian group and every nontrivial element x € H has a prime order p. 


Definition 1.31. We call X9 stabiliser. X9 = {x € X|g” = g}, where x is a word of 


tj ’s. 


Definition 1.32. X() = {x € X|Xg*} where g is a word of t;’s. We call X a 


coset stabiliser. 


Definition 1.33. If X is a set and G be a group. We say X is a G-set if there exists 
a function 6: Gx X + X and the following hold for @: (g,x) > gz. 


elx=ua, forallxe xX. 
e g(hx) = (gh)x, forg he Gandxe X. 


Definition 1.34. Let G be a group. The center of G, Z(G), is the set of all elements 


in G that commute with all elements of G. 


Definition 1.35. Let H be a subgroup of G. Then the subgroup K,(K < G) is a 
complement of H in G if 


e HQ=G 
e HNQ=1 


Definition 1.36. A group X is a semi-direct product of K byQ. X = kK: Q if 
K<«xX and K has a complement Q1 = Q. 


Definition 1.37. For the group G, (Z(G)) is a center of G. The set of allg € G 


commute with every elements of G. 


Definition 1.38. Let G be a group. Cg(g) is a centralizer of G. It is set of allx EG 


commute with g. 
Co(g) = {9" = glx € G} 
Definition 1.39. Let K and G be groups. Ng(K) is a normalizer denoted by 
N@(K) = {9 € GlgKg-! = K} when K <G. 
Definition 1.40. Let G be a group anda€ G, we call a conjugacy class when 
a® = {a9|g € G} = {9 *aglg € G}. 


Definition 1.41. If « € X, 9 €G, the set X©@ is the G-Orbit when 


X& = {29|g € G}. 
Definition 1.42. For a G-set X with an action a, we call the following process faithful. 
a:G— S, is injective. 


Definition 1.43. Let H be a G-set of degree n and let k < n be a positive integer, then 
His K-transitive if there areg © G with ghi = x; fori=1,...,k. 


Definition 1.44. A k-transitive G-set is sharply k-transitive if the identity fixes the 


distinctive elements of X, k, only. 


Definition 1.45. We call Don Dihedral Group. Dihedral group generated by two 
elements x and y with presentation < x,y\x" = y? = (xy)? =1>. The order of Dan is 


equal to 2n and 2n > 4. 


Definition 1.46. The Quaternion Group Q is a group generated by two elements x 


and y with the presentation 


1 


<2,yle" =y* = 12" = yy layaat >. 


Definition 1.47. The Normal Series is a chain of subgroups, 
G=Go=G2IG,2D...DG,=1E€G, 4G, Vi<i<n. 

Definition 1.48. Let G be a group. The Subnormal Series is a chain of subgroups, 
Go =G 2G D ee D=1€ Gy 4G, VO <1 n= 1, 


Definition 1.49. GL(n, F’) is a General Linear Group of n x n matrix over the 


finite field F. 


Definition 1.50. SL(n, F’) is a Special Linear Group of n x n matrix over a finite 


field F with determinant equal 1. 


Definition 1.51. The PGL(n,F) is a Projective General Linear Group of n x n 
matrix over the finite field F which formed by factoring GL by its center. 


PGL(N,F) = GL,(F)/Z(GL(n,F)). 


Definition 1.52. The PSL(n,F) is a Projective Special Linear Group of n x n 
matrix over the finite field F which formed by factoring SL by its center. 


PSL(N,F) = Ln(F) = SLn(F)/Z(SL(n,F)). 


Definition 1.53. The Minimal Normal Subgroup is a direct product of the simple 


groups. 


Definition 1.54. Let G be a group. If kK < G, the Normalizer of K in G is defined 
by 


No(K) = {a € GlaKa“! = K} 
Definition 1.55. Let G be a group. If K < G, the Centralizer of K in G is: 
Ce(K) ={x EG: |x, k] =1 Vk € Kk}. 


Definition 1.56. Let G be a group and X be a G-set. X is Transitive if 


VayEeX,  agéG such that y = gz. 


Definition 1.57. If group G has a composition series, the factor groups of its series 


are the Composition Factors of G. 


Definition 1.58. Let X be a set and 6 by a family of words on X. A group G has 
Generators X and Relations 6 if G = K/R, where K is a free group with basis X 


and R is the normal subgroup of K generated by 6. We say < X|d > is a Presentation 
of G. 


Definition 1.59. Let X be a G-set. X is Primitive if X has no nontrivial blocks. If 
X is primitive, the only blocks of X are H = X and H =9. 


1.2 Group Extension Preliminaries 


Definition 1.60. The Group Extension is an extension of a group N by a group K 


with a normal subgroup H such that 
H=N andG/H=K. 


Definition 1.61. The Central Extension is the extension that N is the center of G 


if G is a central extension of N by K which is based on 
w :KxKA5> N.(m1, ky) * (na, ka) = (n4 * 12 * w(k1, ko) kik). 


Definition 1.62. The Semi-direct Product is a group extension composed by H and 


Q.G=H:Q when H<G. H has a complement Q; = Q. 


Definition 1.63. The Mixed Extension is the extension combined the properties of 
a semi-product and a central extension. (N is a normal subgroup and it is not a central 


of the group) 


o:K > Aut(N) andy: Kx KAN. 
NeK : (ny, ky) * (nz, ke) = (ny * ka * W(k1, ko), kik). 


1.3. Theorems 


Theorem 1.64. (Lagrange) If G is a finite group and H < G, then |H| divides |G| 
and |G: H| = |G|/|HA|. 


Theorem 1.65. Every permutation a € Sp, is either a cycle or a product of disjoint 


cycles. 


Theorem 1.66. (Quotient Group). If H<«G, then the coset H in G form a group 
G/H of order [G: H]. 


Theorem 1.67. (First Isomorphism Theorem). Let ¢: G — H be a homomor- 
phism with ker@ then, 


e (kerd<G}, 
e (G/kerd = imd}. 
Theorem 1.68. (Second Isomorphism Theorem). Let H, K <G and H<G then, 
e (HANK «Ki, 
e (K/HOK © HK/H). 


Theorem 1.69. (Third Isomorphism Theorem). Let K < H < G, where both H 


and K are normal subgroups of G then, 
G/k/H =G/H. 


Theorem 1.70. (Maximal Normal Subgroup). H is a maximal normal subgroup 


of G if there is no normal subgroup K of G with 
HA<K<G. 


Theorem 1.71. (Feit-Thoupson). Every simple group is generated by involution 


which every element of order 2. 


Theorem 1.72. Let G be a group with normal subgroups H and K if, 


e HK =G, 


10 


e AnNk =1, 
thenG2@Hx K. 


Theorem 1.73. If a € G, the number of conjugates of a is equal to the index of its 


centralizer. 
ja] = [G : Ce(a)]. 
Theorem 1.74. Let f : (G,*) > (G’,o) be a Homomorphism then, 
e f(e) =e’, where e’ is the identity in G’, 
e IfacG, then f(a!) = f(a)?" 
e IfacG andneZ, then f(a") = f(a)”. 


Theorem 1.75. The intersection of any family of subgroups of a group G is again a 


Subgroup of G. 


Theorem 1.76. If H and K are subgroups of a finite group G, then 


Theorem 1.77. Every group G can be imbedded as a subgroup of Sg. In particular, if 
|G| =n, then G can be imbedded in Sy. 


Theorem 1.78. If K < G and |G: K] =n, then there is a homomorphism p: G > Sy, 
with kero < K. The homomorphism p is called the representation of G on the cosets 


of K. 


Theorem 1.79. If X is a G-set with action a, then there is a homomorphism a, Sx 
given by @: 2+ gx =a(g,x). Conversely, every homomorphism p : G — Sx defines 


an action, gz = y(g)x which makes X into a G-set. 


Theorem 1.80. The Jordan-Hélder Theorem says every two composition series of 


a group G are equivalent. 


11 


1.4 Lemmas 
Lemma 1.81. Let X be a G-set, and let ry © X. 
e If K <G, then Kan Ky £0 implies Kx = Ky, 
e If K 3G, then the subsets Kx are Blocks of X. 
Lemma 1.82. The Iwasawa’s Lemma says, G is Simple if the following hold true: 
e G is faithful, 
© G is primitive, 
e G is perfect (G = G’), 


e There exists anx € X and an abelian normal subgroup H «<G, whose conjugates 


{gKg-!:g € G} generate G. 
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1.5 Preliminary for Monomial Presentations 


Homo 


Definition 1.83. A Representation of a finite group G is defined by ¢ : G —> 
GL(n;F), where GL(n;F) is a group of n x n invertible matrices over a finite field F. 


Definition 1.84. The Character x afforded by the representation p: G > GL(n,F) 
is a function xy: G—> F given by x(g) =Tr(gp) Vg € G. 


homo 


Definition 1.85. Let p: G “5 GL(n,F and T € GL(n,F). Then, T~'pT is also a 
representation of G and T~'pT and p are called Eeqivelent. 


Definition 1.86. Let p: G a GL(n,F and kerp = {g € gp = In}. Then, p is 


Faithful if kerp = 1. 
Definition 1.87. A representation p:G elas GL(n,F) is given by gp = Fy, is a Trivial 
Representation of G. 

e x(x) = x(y) if x and y are conjugates. 


e Equivelent representation have the same character. 


e The number of irreducible character of G is equal to the number of the conjugacy 


classes of G. 


Definition 1.88. The Trivial Character is the character y of the trivial representa- 


tion, where x: G > T given by x(x) =1Vg EG. 


Definition 1.89. We call square matrix that has exactly one non-zero entry in each 


row and each column Monomial Matiz. 


Definition 1.90. Let G be a group, the Monomial Representation is a map M : 


Homo 


G —> GL(n,F) that provide which M(x) and M(y) are monomial matrices. 


Definition 1.91. A character a of G is monomial if a is induced by a linear character 


of a subgroup K of G. 
Definition 1.92. Let K <G anda be a character of G. Then the formula of induced 


character is ¢¢ = - 
x 


Chapter 2 


Construction of 7° : Dg 


2.1 Double Coset Enumeration of 7? : Dg 


We factor the group G =< 2, y, tly’, (27! * y)?, 214, t?, (t, y * 27) > 
factored by [x * t]® and [2° + #]8, 
where G = Dig =< x,y > with x ~ (1, 2,3, 4, 5,6, 7, 8,9, 10, 11, 12, 13, 14), 
y ~ (1,13)(2, 12)(3, 11)(4, 10)(5,9)(6, 8), and let t ~ ty. 


Now (x°t)? = e 
= xt) rt rt) =e 
— 11 t =e 
=> L trtaty =e 
So w%t7t, = ty. We also have Nt7t, = Nty 
Also, (x°t)? =e 
vty etx? ty =e 
Ser rh =e 
=> xt tet} =e. 
So x!>ty,tg = t,. We also have 


Nti1t6 = Nt. Thus, 


titet: = (1,14, 13, 12, 11, 10, 9,8, 7, 6,5, 4, 3, 2), 
trtat; = (1,6, 11,2, 7, 12,3,8, 13, 4,9, 14,5, 10),... 


13 


14 


sie use our technique of double coset enumeration to show that 
IG) = |maoet 3c 1 Pa | < 588.. In order to obtain the index of N in G we shall perform 
a manual double coset enumeration of G over N; thus we must find all double cosets 
[w] = NwWN and work out how many single cosets each of them contains. We shall 
know that we have completed the double coset enumeration when the set of right cosets 
obtained is closed under right multiplication by the tis. Moreover, the completion test 
above is best performed by obtaining the orbits of N“”) on the symmetric generators. We 


need only identify, for each [w], the double coset to which the right coset Nwt; belongs 


for one symmetric generator t; from each orbit. 


Word of length 0 
e NeN is denoted by |*]. 


NeN = {N}. The number of right cosets in [*] is equal to x = 8=1. 
Since N is transitive on {1, 2,3, 4, 5,6, 7, 8,9, 10, 11, 12,13, 14}, 
the orbit of N on {1,2,3,4,5,6, 7,8, 9, 10, 11, 12, 13,14} is 
{1, 2,3, 4,5, 6,7, 8,9, 10, 11, 12, 13, 14}. 


Word of length 1 
e Nt,N is denoted by [1] 


Nt=< (2, 14)(3, 13)(4, 12)(5, 11)(6, 10)(7,9) >=N. 
The number of right cosets in [1] is equal to 
INC] = = =14. The orbits of N 
{1, 2,3, 4,5, 6,7, 8,9, 10, 11, 12,13, 14} are {1}, {8}, 
{2, 14}, {3, 13}, {4, 12}, {5, 11}, {6, 10}, and, {7,9}. 
We pick a representative, say t;, from each orbit and determine the double coset 
that contains N¢;. 
Ntit € [*] (1 symmetric generator symmetric generator goes back to the double 
coset [*]), since t? =e. 
Ntit2 € [1] (1 symmetric generator goes back to the double coset [1]), since 


ty *tg = 2? «tg 


15 


Nt,tg € [1] (1 goes back to the double coset [1]), since t; * tg = x7 * t. 
Ntita € [1] (2 symmetric generators go back to the double coset [1]), since 
ty xk t4 =2°9 * tz. 


Ntite € [1] (2 symmetric generators go back to the double coset [1]), tixtg = ati. 
Thus, ty takes [1] to [x] and to, ty4, tg, ta, ty, te, tio take [1] to itself. 


Word of length 2 
e Nt,t3N is denoted by [13]. 


We note that N@3) > N18 = 1. Now tyt3 = tsts —> 
(1,3, 5, 7,9, 11, 13)(2, 4, 6, 8, 10, 12,14) e N39) 
and t1t3 = ¢°tyotip —> 
(1, 12)(2, 11)(3, 10)(4, 9)(5, 8)(6, 7)(13, 14) € N@%). Thus 
NOS) >= (1,3, 5, 759,11, 13)(2,4, 6,820,192, 14), 


(1, 12) (2, 11)(3, 10)(4, 9)(5, 8)(6, 7)(13, 14) >& Dr. 


IN| __ 28 9 
INGS3)] — 14 — 


The orbit of N“@%) on {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14} is 

{1, 3, 12, 14, 10, 2, 13, 7,8, 4, 11,9, 6, 5}. 

We now take the representative 3 of the orbit 

{1,2,3,4,5, 6, 7,8, 9, 10, 11, 12, 13, 14}. 

and determine that Nt,t3t3 = Nt, € [1]. So all of the fourteen tis take [13] to [1]. 


The number of right cosets in [13] is equal to 


e NtitsN is denoted by [15]. 


We have N@) > N} = 1, 
Now tits = t3t7 implies 
(1, 3,5, 7,9, 11, 13)(2, 4,6, 8, 10, 12, 14) 
€ N°) and tits = 277tyatio => 
(1, 14) (2, 13) (3, 12)(4, 11) (5, 10) (6, 9)(7, 8) 
€ N@5), Thus NG > 
< (1,3,5,7,9, 11, 13) (2, 4, 6,8, 10, 12, 14), 
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(1, 14)(2, 13)(3, 12)(4, 11)(5, 10)(6,9)(7,8) >& Dr. 


IN| __ 28 9 
INGS)] — 14 — 4 


The orbit of N°) on {1, 2,3, 4,5, 6,7, 8,9, 10, 11, 12, 13, 14} is 

{1, 2,3, 4, 5,6, 7,8,9,10,11,12,13,14}. We now take the representative 5 of the 
orbit 

{1, 2,3, 4,5, 6,7, 8,9, 10, 11, 12, 13, 14} 

and determine that Nttsts = Nt, € [1]. So all of the fourteen tis take [15] to [1]. 


The number of right cosets in [15] is equal to 


e Ntit7N is denoted by [17] 


We have NO?) > N17 = 1, 
Now t,t7 = tstg implies 
(1,3, 5, 7,9, 11, 13)(2, 4,6, 8, 10, 12,14) e NG”) 
and tity = x*tiots —> 
(1, 12)(2, 11)(3, 10)(4, 9) (5, 8)(6, 7)(13, 14) € NO”, 
Thus NO? >< (1,3,5, 7,9, 11, 13)(2, 4,6, 8, 10, 12, 14), 
(1, 12)(2, 11)(3, 10)(4, 9)(5, 8)(6, 7) (13, 14) >& Dr. 
We now take the representative 7 of the orbit 
{1,2,3,4,5, 6, 7,8, 9, 10, 11, 12,13, 14} 
and determine that Ntit7t7 = Nt, € [1]. So all of the fourteen tis take [17] to [1]. 
The number of right cosets in [17] is equal to Nan = 8=2. 
The orbit of N@” on {1, 2,3, 4,5, 6, 7, 8,9, 10, 11, 12, 13,14} is 
{1, 3, 12, 14,5, 10, 2, 13,7, 8, 4, 11, 9, 6}. 
Now, we can construct the Cayley diagram, since the set of right cosets are closed 
under right multiplication by tis 
where i = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11, 12, 13, 14 , and determine the index of N 
in G. We conclude that 


72:D 
|G] = | peags peas 
N N N N 
IG] < (IN| + phy + pee + phy + pe) & 1 


= (Gl < (1+ 1449-42-49) X28 
==> |G| < (21 x 28) 
—> |G] < 588 
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[13] 


[15] 


Figure 2.1: Cayley diagram of 7? : Dg over Dy4 


2.2 Proof of G=7?: Deg 


We determine the permutation representation G, of G on the 21 right 
cosets of N =< x,y > in G. We now demonstarte that the isomorphism type of 
Gist De: 


G<x,y,t>:=Group<x,y,tly°2, (x* (-1) *y) *2,x* (14), 
t°2, (t,y*x°2), (x7 3*t) 73, (x7 5*t) 73>; 

#G 

£,G1,k:=CosetAction (G, sub<G|x,y>); 


The following composition factors and the normal lattice 
suggest that NL[2] is an abelian normal subgroup of Gl. 


CompositionFactors (Gl); 
G 

Cyclic (2) 

Cyelve (3) 

Cyclic (2) 


Cyclic(7) 


Cyclic(7) 


NL:=NormalLattice (G1); 


ly; 


Normal subgroup lattice 


8] Order 588 Length 1 Maximal Subgroups: 5 6 7 
7] Order 294 Length 1 Maximal Subgroups: 4 
[6] Order 294 Length 1 Maximal Subgroups: 4 


cmt ct 


[5] Order 294 Length 1 Maximal Subgroups: 3 4 


[4] Order 147 Length 1 Maximal Subgroups: 2 
[3] Order 98 Length 1 Maximal Subgroups: 2 


ct 


2] Order 49 Length 1 Maximal Subgroups: 1 


1] Order 1 Length 1 Maximal Subgroups: 
IsAbelian(NL[2]); 
true 


Now NL[2] \cong 7°2. A presentation of 7°2 is 
7°2=\{a,bla°7,b°7, (a,b) \} <3 


X:=AbelianGroup (GrpPerm, [7,7]); 
IsIsomorphic(X,NL[2]); 
true 


The quotient group g=G1/NL[2] is the dihedral group 
D_6 with presentation 

q = \{c,d,e|c*2,d°2,e°2, (cd) *2, (de) *2, (ec) *3\}. 

q, f££:=quo<G1|NL[2]>; 

ar 
Permutation group q acting on a set of cardinality 6 
Order = 12 = 2°2 « 3 


(3, 5) (4, 6) 
(1, 2) (3, 4) (5, 6) 
(ly Shr -4) 


TsAbelian(q); 
false 


FPGroup (q); 
Finitely presented group on 3 generators Relations 
.1°2 = Id 
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2°2 = 1d 
.3°2 = Id 
(al #42) °2 =: Td 
(a2 # .3)°2 = 1d 
(.3 * .1)°3 = Id 


Thus Gl is a semi-direct product of 7°72 by D_6. 

The action of D_6 on 7°2 is a°c=a’6*b, a°d=a*6,a°e=a~2*b* 6 
,b°c=b,b*d=b°6,b°e=a~3*b75.Hence, a presentation of D_6:7°2 
is given by {a,b,c,d,el|la°7,b°7, (a,b),c°2,d°2,e°2, (cxd) “2, 
(dxe) “2, (exc) *3,a°c=a°6xb, a” d=a~6,a°e=a*2*b°6,b° c=b,b* d= 
b*°e=a73xb°5}.We finally verify that Gl = D_6:7°2. 


b*6, 


T:=Transversal(Gl,NL[2]); 
f£(T[2]) eq gq.1; 

true 
f£F(T[3]) eq q.2; 
true 
f£F(T[4]) eq q.3; 
true 
for i,j in [0..6) do.if NL[2] .1°T[2] eq 
NL[2].1°i*NL[2].2° 3 then i,j; end if; end for; 
6 1 
for i,j in [0..6] do if NL[2].1°T[3] eq 
NL[2].1°i*NL[2].2° 3 then i,j; end if; end for; 
6 0 
for i,j in [0..6] do if NL[2].1°T[4] eq 
NL[2].1°i*NL[2].2° 3 then i,j; end if; end for; 
2 6 
for 1,3 in [0..6] ‘do if NL[2] ..2°T[2] eq 
NL[2].1°i*NL[2].2°3 then i,j; end if; end for; 
Ol 
for i,j in [0..6] do if NL[2].2°T[3] eq 
NL[2].1°i*NL[2].2° 5 then i,j; end if; end for; 
0 6 
for i,j in [0..6] do if NL[2].2°T[4] eq 
NL[2].1°i*NL[2].2° 3 then i,j; end if; end for; 

3), 5 
GG<a,b,c,d,e>:=Group<a,b,c,d,e|la°7,b°7, (a,b) ,c*2 
,a°2,e°2, (cx*d) “2, (dxe) “2, (exc) 73, 

a°c=a6x*b, a°d=a*6,a° e=a°2xb*6 
,0°c=b,b*d=b*6,b°e=a~3*xb*5>; 

#GG; 

588 
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£1,GG1,k1:=CosetAction (GG, sub<GG|Id(GG) >); 
IsIsomorphic(GG1,G1); 
true 


2.3. Magma Work for 7? : Dg 


S:=Sym(14); 

xx:=S!(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14); 
yy:=S! (1, 13) (2, 12) (3, 11) (4, 10) (5, 9) (6, 8); 
N:=Sub<S|xx,yy>; 

#N; 

28 


G<x, y,t>:=Group<x,y,tly°2, (x°-l*y) “2,x°14,t°2, (t,y*x"2), 
(x*3«*t) 73, (x*5*t) 73>; 

#G; 

588 

£,G1,k:=CosetAction (G, sub<G|x,y>); 
IN:=sub<G1|f(x),f(y) >; 

CompositionFactors (Gl); 

Cyclic (2) 

Cyclic (3) 

Cyelie (2) 


Cyclic(7) 


Cyclic(7) 


#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>) ; 


DoubleCosets (G, sub<G|x, y>, sub<G|x,y>); 

{ <GrpFP, Id(G), GrpFP>, <GrpFP, t * x°4 * y * t, GrpFP>, 
<GrpFP, t * y ,GrpFP>, <GrpFP, t, GrpFP>, 

<GrpFP, t * xX y * t, GrpFP> } 


ON +~e 
* ct 


NN<a,b>:=Group<a,b|b°2, (a°-1*b) *2,a°14>; 
Sch:=SchreierSystem(NN, sub<NN|Id (NN) >); 


ArrayP:=[Id(N): i in [1..28]]; 

for iin [2..28] do 

P:=[Id(N): l re [l..#Sch[i]]]; 

for j in [1 Sch[i]] do 

if Ses J) [3] eq 1 then P[j]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[Jj]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[Jj]:=yy; end if; 

end for; 

PP:=Id(N); 

for k in [l. do 

PP:=PPx*P[k]; ee £or; 

ArrayP[i]:=PP; 

end for; 

for iin [1..28] do if ArrayP[i] eq N! (2, 14) (3, 13) (4, 12) 
(5, 11) (6, 10) (7,9) 

then Sch[i]; 

end if; end for; 

bea" 2 

prodim := function(pt, Q, I) 

Return the image of pt under permutations Q[T] 
applied sequentially. 

Vi=pt; 

for 1 in I do 

vi=v° (Q[i]); 

end for; 

return v; 

end function; 

<store t’s> 

ts := [ Id(Gl): i in [1 .. 14] ]; 

ts[l]:= (ever e nels =f(t*x);ts[3]:=f (t* (x*2)); 
ts[4]:=f (t* (x*3));ts[5]:=f (t* (x*4));ts[6] :=f (t* (x75)); 
ts[7]:=f£ (t* (x*6));ts[8] :=f (t* (x*7));ts[9] :=f (t* (x78) ) 
ts[10]:=f£ (t7 (x bed epee pet cy i ai :=f(t* (x711)); 
ts[13]:=f£ (t* (x712));ts[14]:=f(t* (x713)); 

est:= [null x bmeciey aba bib 21)] 

where null is[Integers() |]; 

for 1 := 1 to 14 do 


cst [prodim(1, 


end for; 
m:=0; for i 


ir [alvse 2 1] 


then m:=m+1; 


14 

N1:=St 
N1:=St 
S:={[1]}; 
SS:=S°N; 


tabiliser (N,1 
tabiliser(N, [ 


SSS:=Setseq(SS); 
i in [1..#SS] do 
for g in IN do 


£Or 


if ts[1] 


ts, [1] 


end if; 


) 
1 


then print SSS[i]; 
end if; end 


Nis 


:=N1; 


#N1s; 


2 


for; 


end 


]); 


= LAI5 


end for; 


’ 


for; 


Tl:=Transversal (N,NI1s); 


#T1 
14 


’ 


Tl:=Transversal (N,NI1s); 


for i := 1 to #Tl1 do 
ss := [1] °T1[i]; 
cst[prodim(l, ts, ss) 
end for; 

m:=0;for i in [1..21] 
then m:=m+l; end if; 


14 


Orbits (Nl1s); 


[ 
GSe 
GSe 
GSe 
GSe 
GSe 


t{@ 1 @}, 
t{@ 8 @}, 
t{@ 2, 14 
t{@ 3, 13 
t{@ 4, 12 


@}, 
@}, 
@}, 


] := ss; 


do if cst[i] 


end for; 


do. 28 esti] 


Mm; 


eq gxts[Rep(SSS[i]) [1]] 


Mm; 


ne 


ne 


[] 


fOr a, Ane "Pde. x Dak] ado: Any "G's as) F <end for; 
1 [] 

2. a] 

! 2 ] 

4 Loy 4] 

5 14 ] 

6 3: ] 

7 12 ] 

8 

9 


FOWeOoOAT DA OF WBN EF O 
Oy 


Dh MO PRP RP RP RPP BPP PB 
ee SS eS ES Se ES 


N18:=Stabiliser(N, [1,8]); 
S:={[(1,8]}; 

SS:=S°N; 
SSS:=Setseq(SS) ; 

for i in [1..#SS] do 
for g in IN do if ts[1] 
eq g*xts[Rep(SSS[i]) [1]] 
then print SSS[i]; 

end if; end for; end for; 


ts [8] 
ts[Rep(SSS[i]) [2] ] 


*1 
*1 


N18s:=N18; 
#N18s; 
2 
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T18:=Transversal (N,N18s); 
#T18; 
14 


for i := 1 to #T18 do 

ss := [1,8] °T18[i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1..21] do if cst[i] ne [] then m:=m+]1; 
end if; end for; m; 

14 


Orbits(N18s); 

[ 

GSet{@ 1 @}, 
GSet{@ 8 @}, 
GSet{@ Py 14 @}, 


GSet{@ 3, 13 @}, 
GSet{@ 4, 12 @}, 
GSet{@ 5, 11 @}, 
GSet{@ 6, 10 @}, 
GSet{@ 7, 9 @} 


for m,n in IN do if ts[1l]*ts[8] eq m*«(ts[1])°n then m,n; 
end if;end for; 


(2, 19) (3, 16) (4, 15) (5, 18) (6, 13) (7, 12) (8, 11) (9, 10) 
(14, 17) (20, 21) 
Id (IN) 


m:=N! (1, 8) (2, 9) (13, 6) (14, 7) (3, 10) (12, 5) (4, 11); 
n:=N!Id(IN); 


Ay 

1 J 
for iin [1 .. 28] do if ArrayP[i] eq m then Sch[i]; 
end if; end for; 
a*7 


ts[l]*ts[8] eq f(x*7)«ts[1]; 
true 
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N12:=Stabiliser(N, [1,2]); 
S:={[1,2]}; 

SS:=S°N; 
SSS:=Setseq(SS) ; 

for i in [1..#SS] do 
for g in IN do if ts[1] 
eq gxts[Rep(SSS[i]) [1] 
then print SSS[i]; 

end if; end for; end for; 


ts [2] 
ts[Rep(SSS[i]) [2] ] 


~ 


L,;. 2 


{ 
[ 
} 
{ 
[ 5, 4 
} 


N12s:=N12; 


for g in N do if 1l°g eq 5 and 2°g eq 4 
then N12s:=sub<N|N12s,g>; end if; end for; 


#N12s; 
2 


T12:=Transversal(N,N12s); 
#T12; 
14 


for i := 1 to #T12 do 

ss := [1,2]°T12[i]; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 

m:=0; 


for iin [1..21] do if cst[i] ne [] then m:=m+l1; 


end if; end for; m; 
14 


Orbits(N12s); 

[ 

GSet{@ 3 @}, 
GSet{@ 10 @}, 
GSet{@ 1, 5 @}, 
GSet{@ 2, 4 @}, 
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GSet{@ 6, 14 @}, 
GSet{@ 7, 13 @}, 
GSet{@ 8, 12 @}, 
GSet{@ 9, 11 @} 


for m,n in IN do if ts[l]*ts[2] eq m*«(ts[1])*n then m,n; 
end if;end for; 

(2, 29%: 1S, 13, <4, 37 123 29, 1L0;.\5;, “6; -25;7- Loe 7) -C8;,- LA) 
(14, 17) (20, 21) (2, 6, 12, 18, 16, 10, 4) (3, 9, 15, 19, 


Wilip <45" Pp LO 7 B39: Zao Dp Seay Wy. 235-0 297 L2G 
po dye G55 dy LS) 497 “Cy 283, VOy 22; 24) 3 


maa 8.48 
i 
22 
a 
W 
Oo 


for iin [1 .. 21] do if ArrayP[i] eq m then Sch[il]; 
end if; end for; 
a~3 


ts[l]*ts[2] eq f£(x*3)«ts[3]; 
true 


N13:=Stabiliser(N, [1,3]); 
Sepals 

SS:=S°N; 
SSS:=Setseq(SS) ; 

for i in [1..#SS] do 
for g in IN do if ts[1] 
eq g*ts[Rep(SSS[i]) [1] ] 
then print SSS[i]; 

end if; end for; end for; 


ts[3] 
ts[Rep(SSS[i]) [2] ] 


* 
* 


13; 
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N 
1°g eq 12 and 3°ge 
13s,g>; en 
“g eq 14 and 3°ge 
13s,g>; en 
l*g eq 5 an 
13s,g>; en 


N 


N 
1*g eq 10 and 3°g eq 8 
13s,g>; en 


1*g eq 2 an 


N 


1*g eq 3 an 
13s,g>; en 


Aa 


d 3°g eq 5 

d if; end for; 
q 10 

ad af; end. for; 
gy 12 

a 2f} end. for; 

d 3°g eq 7 

d if; end for; 

d if; end for; 


d 3°g eq 14 
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then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 13 and 3%g eq 1 
then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 7 and 37g eq 9 
then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 8 and 37g eq 6 
then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 4 and 3°g eq 2 
then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 11 and 3°g eq 13 


then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 9 and 3°g eq 11 
then N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if 1°g eq 6 and 37g eq 4 
then N13s:=sub<N|N13s,g>; end if; end for; 
#N13s; 

14 


for g in N do if 1°g eq 3 and 3°g eq 5 then g; 
end if; end for; 
Che Sy Se Te 9, Dip. VS ey 45s 64 8) Oy 12; 14) 


for n in IN do if ts[l]*ts[3] eq n*ets[3]x*ts[5] then n; 
end if; end for; 
Id(IN) 


ts[l]*ts[3] eq ts[3]*ts[5]; 


for n in IN do if ts[l]*ts[3] eq n*ets[12]*ts[10] then n; 
end if; end for; 
(25. 187-4, 12,. 10, 6,° 26) (3; -19), 5S, 257° 7, 97213) 


Ni (1h, fy 13 Sp Ly 37 9)0(2 7-85.14 67,12; 47 10)-7 
(ly, Ty Tse Sy Sky Sy (OIA 2 OCB LA Op ey 4, LO) 


for 1. ane \[ 
B35. (9) 42, 8 
i 


1..28] do if ArrayP[i] eq N! (1, 7, 13, 5, 11, 


, 14, 6, 1,2, 4, 10) 
then Sch[i]; end if; end for; 
a6 


ts[l]xts[3] eq f£(x*6)x*ts[12]*ts[10]; 

for g in N do if 1°g eq 12 and 3*g eq 10 then g; end if; 
end for; 

(1, 12) (2, 11) (3, 10) (4, 9) (5, 8) (6, 7) (13, 14) 


28 


29 


N13s:=sub<N| (1, 3, 5, 7, 9, 11, 13) (2, 4, 6, 8, 10, 

12, 14), (1, 122).(2, 122)-(8, 10)¢4, 9) (5; 8). (6, 7) 43, 14)>; 
T13:=Transversal(N,N13s); 

#713; 


for i := 1 to #T13 do 

ss := [1,3]°T13[i]; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; 
for iin [1..21] do if cst[i] ne [] then m:=m+1; end if; 
end for; m; 
16 


Orbits (N13s); 


[ 
GSet{@ 1; 3, 12, 14, 5, 10; 2, 13, 7; 8; 4, Ll, 9 6.©} 


for m,n in IN do if ts[1l]*ts[3] eq m*(ts[1])°n then m,n; 
end if;end for; 


N14:=Stabiliser(N, [1,4]); 
S:={[1,4]}; 

SS:=S°N; 
SSS:=Setseq(SS) ; 

for i in [1..#SS] do 
for gan IN do. af tsi[1] 
eq g*xts[Rep(SSS[i]) [1]] 
then print SSS[i]; 

end if; end for; end for; 


ts [4] 
ts[Rep(SSS[i]) [2] ] 


*1 
*1 


{ 

Lae ad 

} 

{ 

[ £3, Lo] 
} 
N14s:=N14; 


for g in N do if 1°g eq 13 and 47g eq 10 
then N14s:=sub<N|N14s,g>; end if; end for; 


30 


#N14s; 
2 


T14:=Transversal (N,N14s); 
#T14; 
14 


for i := 1 to #T14 do 

ss := [1,4]°T14[i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1..21] do if cst[i] ne [] then m:=m+l1; 
end if; end for; m; 

16 


Orbits (N14s); 
[ 


GSet{@ 7 @}, 
GSet{@ 14 @}, 
GSet{@ 1, 13 @}, 
GSet{@ 25 12 @}, 
GSet{@ 3, 11 @}, 
GSet{@ 4, 10 @}, 
GSet{@ 5, 9 @}, 
GSet{@ 6, 8 @} 


for m,n in IN do if ts[l]*ts[4] eq m*(ts[1])°n then m,n; 
end if;end for; 

(25.13; 225. Sy Le;.9¢ 4, £o. con fp (LB > Sy 207 “Lb38y 711) 
(14; 27):4€20) “249 (2) 18> 4a B25. 20, -65 2O).(35 29, Se LS; Fy 
9, 13) 


for m,n in IN do if ts[l]*ts[4] eq m*«(ts[1]*ts[3])*n then 
m,n; end if;end for; 


Meany 0.5). May Op Aye Dep Bp Be Dey. Te Be Ay 6) 
DPN Rye Le: Sy WN Bye VON 2p Sp AR. See Bh Os 
1] *n; 
il 


for iin [1 .. 21] do if ArrayP[i] eq m then Sch[i]; 
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end if; end for; 
a~-5 


ts[l]*ts[4] eq f£(x*-5)*ts[7]; 
true 


N15:=Stabiliser(N, [1,5]); 
S:={[1,5]}; 

SS:=S°N; 
SSS:=Setseq(SS); 

for i in [1..#SS] do 
for g in IN do if ts[1] 
eq g*ts[Rep(SSS[i]) [1]] 
then print SSS[i]; 

end if; end for; end for; 


ts [5] 
ts[Rep(SSS[i]) [2] ] 


*1 
*1 


{ 

[ 4, 14 ] 

{ 

[ 11, 1 ] 

{ 

[ 9, 13 ] 

{ 

[ 6;.42> 
N15s:=N15; 

for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
for g in N do if 
then N15s:=sub<N 
#N15s; 


N 
1*g eq 12 and 5°g eq 8 


N15s,g>; en 


N 
1*g eq 10 and 5°g eq 6 
N 
1*g eq 2 an 


N15s,g>; en 


N 
1*g eq 8 an 
15s,g>; en 
g eq 11 and 57 


15s,g>; en 


N 


1*g eq 3 an 
15s,g>; en 


a 


d 5°g eq 7 


d if; 


a. ak? 


S 


e€ 


d for; 


d for; 


*“g eq 14 and 5°g eq 10 


15s,g>; en 
l*g eq 5 an 
15s,g>; en 


15s,g>; en 


a 


d if; 


€ 


a for; 


d 5°g eq 9 


at? 


d if; 


e 


= 


d for; 


d for; 


d 5°g eq 12 


d if; 


e€ 


d for; 


*g eq 13 and 5°g eq 3 


15s,g>; en 
l*g eq 7 an 
15s,g>; en 


Aa 


“g eq 9 an 


15s,g>; en 


“g eq 6 an 


15s,g>; en 


a Lt; 


a vt> 
d 5°g 
a. 2t; 
d 5°g 
d if; 


e 
e 
e 
e 
e 


d for; 
Teal 

d for; 
4 

d. For; 


g eq 1 


= 
‘= 
e 
e 
S 


d for; 
ae) 

d for; 
2 

d for; 
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for n in IN do if ts[l]*ts[5] eq n*ets[3]*ts[7] then n; 
end if; end for; 

Id (IN) 

for g in N do if 1°g eq 3 and 5°g eq 7 then g; 

end if; end for; 

(Ly By Sp" tp Sie TE ADS) (25-475 6 84 Oy. D2,.-14) 


for g in N do if 1l°g eq 14 and 5°g eq 10 then g; 
end if; end for; 
(1, 14) (2, 13) (3, 12) (4, 11) (5, 10) (6, 9) (7, 8) 


for n in IN do if ts[l]*ts[5] eq n*ets[14]*ts[10] then n; 
end if; end for; 
(2. 4, 10; 16, 18, 12; 6). (37 5; 7, -13,-29,. 15, 9) 


N! (1,13,11,9,7,5,3) (2,14,12,10,8,6,4); 

for iin [1..28] do if ArrayP[i] eq N! (1,13,11,9,7,5,3) 
(2,14,12,10, 8,6, 4) 

then Sch[i]; end if; end for; 

a~-2 


ts[l]*ts[5] eq f(x*-2)*ts[14]*«ts[10]; 
true 


T15:=Transversal(N,N15s); 
#T15; 
2 


for i := 1 to #T15 do 

Ss. ¢= [1,5] 7T15.[2.); 
cst[prodim(l1, ts, ss)] := ss; 
end for; 


for iin [1..21] do if cst[i] ne [] then m:=m+1l1; end if; 
end for; m; 


Orbits(N15s); 

[ 

GSet{@ 1, 3, 12, 14, 5, 10, 2, 13, 7, 8, 11, 9, 6, 4 @} 
] 


for m,n in IN do if ts[l]*ts[5] eq m*«(ts[1])°n then m,n; 
end if;end for; 


for m, 
m,n; e 


N16:=S 
S:={[1 


n in IN do if ts[l1]«ts[5] 
nd if;end for; 


tabiliser(N, [1,6]); 


Pao [alae 


SS:=S°N; 
SSS:=Setseq(SS) ; 


for 1 
for g 
eq gxt 
then p 
end if 


{ 
[ 1, 6 
} 

{ 

[ 7, 2 
} 


Nl6s:= 


in [1..#SS] do 
in IN do if ts[1l] 
s[Rep(SSS[1i]) [1] ] 
FInt SSS-[a)].; 

; end for; end for; 


ts[6] 


* 
* 


N16; 


eq m«(ts[1l]*ts[3])*n then 


ts[Rep(SSS[i]) [2] ] 


for g in N do if 1l°g eq 7 and 6°g eq 2 


then N 


#N16s; 
2. 


T16:=T 
#T16; 
14 


for i 

SS t= 

cst [pr 
end fo 
m:=0; 

for. Lt 

end if 
18 


Orbits 
[ 

GSet {@ 
GSet {@ 


16s:=sub<N|N16s,g9>; 


ransversal (N,N16s); 


:= 1 to #T16 do 
[1,6] *T1l6[i]; 
odim(1l, ts, ss)] := ss; 


vc; 


IM« (shew 2a 


; end for; m; 


(N16s); 


4 Oh, 
bd se}; 


end if; 


do if cst[i] ne 


end for; 


[] then m:=mt+1; 
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GSet{@ 1, 7 @}, 
GSet{@ 2, 6 @}, 
GSet{@ 3, 5 @}, 
GSet{@ 8, 14 @}, 
GSet{@ 9, 13 @}, 
GSet{@ 10, 12 @} 


for m,n in IN do if ts[l]*ts[6] 


end if;end 


(2, 3, 6, 9, 
TPA Oy 


(14, 


Dy sy D5) 


for m,n in 


m 


m 


Oz 


me 


end if 


for m,n in 


for; 
12, 15, 
21) (2, 


IN do if 
fF;end for; 


end if 


fF;end for; 


18, 19, 


16, 


eq mx (ts[1]) 


See. ol 


10, 18, 6, 


ts[l]«ts[6] 


4, 16, 


eq mx ( 


0, 
2s) 


ts[l 


7, 
(3, 


|* 


Aa 


4, 5) (8, 


7, 


ts [3] 


n then m,n; 


IN do if ¢ 


eq m*«(ts[1l]*ts[5])7n 


MSN, <2, Se 4p By 667 1, 8 95 
n:=N! (1, 
al eee: 
aL ales 


L.O.,. Zh ds 
LO 8 Ay 


12, 
14, 


13, 
10, 


14); 
6); 


for a. anf 
end if; 
a 


21] 
end for; 


do if ArrayP[i] eq m then Sch[i]; 


ts[1l]*ts[6] 
true 


eq f£(x)*ts[11]; 


N17:=Stabiliser(N, [1,7]); 
pent lle Alig 

SS:=S°N; 
SSS:=Setseq(SS); 

for i in [1..#SS] do 
for g in IN do if ts[1] 
eq gxts[Rep(SSS[1]) [1] ] 
then print SSS[i]; 

end if; end for; 


ts[7] 
ts[Rep(SSS[i]) [2] ] 


x4 
*1 


end for; 
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N17s:=N17; 


for g in N do if 1°g eq 3 and 7°g eg 9 
then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1°g eq 12 and 7*g eq 6 


36 
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then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1l°g eq 14 and 7°g eq 8 
then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1°g eq 5 and 7g eg 11 
then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1°g eq 10 and 7*g eq 4 
then N17s:=sub<N|N17s,g>; end if; end for; 
1°g eq 2 and 7°g eq 10 
then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1°g eq 13 and 7*g eq 5 


then N17s:=sub<N|N17s,g>; end if; end for; 
for g in Nido af 1g .eq 7 and 7*q eq 13 
then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1l°g eq 8 and 7°g eq 2 
then N17s:=sub<N|N17s,g>; end if; end for; 
for g in N do if 1°g eg 4 and 7°g eg 12 
then N17s:=sub<N|N17s,g>; end if; end for; 


Aa 


1*°g eq 11 and 7*g eq 3 
then N17s:=sub<N|N17s,g>; end if; e 
for g in N do if 1l°g eq 9 and 7*g eq 1 
then N17s:=sub<N|N17s,g>; end if; end for; 
d e 
d e 


for g in N do if 1l°g eq 6 and 7g 
then N17s:=sub<N|N17s,g>; end if; 


#N17s; 


for n in IN do if ts[1l]*ts[7] eq n*ets[3]*ts[9] then 
n; end if; end for; 
Id (IN) 


ts[l]*«ts[7] eq ts[3]*ts[9]; 
true 


for g in N do if 1°g eq 3 and 7*g eq 9 then g; 
end if; end for; 
(ly Sy be Te OR TL, L3)Ce Se Ge Be 20, 125-24) 


for n in IN do if ts[l]*ts[7] eq n«ets[12]«ts[6] then 
n; end if; end for; 
(2, 12; “16; -4;. 67 18; 10) (3, 15, 13, .55. (97 19; 7) 


Nv(1. 55-9513 36 ell 2 6 10 147 278 12) 5 
for iin [1..28] do if ArrayP[1i] eq N! (1, 5, 9, 13, 
3, 7, 11)(2, 6, 10, 14,4, 8, 12) then Sch[i]; end if; 


end for; 
a4 


ts[l]*ts[7] eq £(x*4)*ts[12]«ts[6]; 
true 


for g in N do if 1l°g eq 12 and 7*g eq 6 then g; 
end if; end for; 
(1, 12) (2, 11) (3, 10) (4, 9) (5, 8) (6, 7) (13, 14) 


T17:=Transversal(N,N17s); 
#T17; 
2 


for i := 1 to #T17 do 

ss := [1,7]°T17[i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1..21] do if cst[i] ne [] then m:=m+1; 
end if; end for; m; 

20 


Orbits (N17s); 
[ 

GSettid Py 33. 1:25.-- 2a By 105. 2, “ss 52 (85 Ay Ta 9, 
] 
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6 @} 


for m,n in IN do if ts[1]*ts[7] eq m*«(ts[1])°n then m,n; 


end if;end for; 


for m,n in IN do if ts[1l]*ts[7] eq m*(ts[1]*ts[3])7*n 


then m,n; end if;end for; 


then m,n; end if;end for; 


for m,n in IN do if ts[l]*ts[7] eq m*(ts[1l]*ts[5])7n 
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Chapter 3 


Construction of 2* : (5: 4) 


3.1 Double Coset of Enumeration of 2! : (5: 4) 


We factor the group G = Ds =< z,y,t\x°,y*,y 1*2 7 *yxr t,t, (t,y) > 
by the 3 relation [x~? * y~? *t™ 4, [y~! * a7? * ¢]§ and [x? « t), 


where N =< z,y > with x ~ (1, 2,4,5,3), y ~ (2,4,3,5), 
and let t ~ ¢4. 


Now (272 xy? * t”)4 =e 


—> gy tyr 7y-*t5n ty ae =e 
=> xy tyr ®y tstits = € 
— x 'y tt, =e 
So x ®y—%t, = ts. We also have Nt, = Nts. 


(yaa eT Se 


Sate ty ee eh ey ey Se 


=> yay tay a lhy Px ty tatotgt; = e 


= y ex Stytotgtytatetsty =e 
So y 2x tatotgtitatots = ty. We also have Ntgtotgt tatots = Nt 


Also, (a? *1)° = 
=> ety 27 ty e7 tye tat, =e 


= Phe totais =e 
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= eo tstatity, =e. 


So x! °tstot3t, = t). We also have 


Ntstot3t4 = Nt. Thus, 


tst; = (1,4, 2,3), 
tatotgt tatotst, = (1, 4, 2, 3); 
tstotgtat; = (1,3, 5,4, 2). 


We use our technique of double coset enumeration to show that 


OP? eo) 
[ay PAE |e ye ea ee, lee) 


IG) = | 


=| < 320 


. In order to obtain the index of N in G we shall perform a manual double coset 
enumeration of G over N; thus we must find all double cosets [w] = NwN and 
work out how many single cosets each of them contains. We shall know that we 
have completed the double coset enumeration when the set of right cosets obtained 
is closed under right multiplication. Moreover, the completion test above is best 
performed by obtaining the orbits of N“) on the symmetric generators. We need 
only identify, for each [w], the double coset to which the right coset Nwt; belongs 


for one symmetric generator t; from each orbit. 
Word of length 0 


e NeN is denoted by |*]. 


NeN = {N}. The number of right cosets in [*] is equal to x = P=1. 
Since N is transitive on {1, 2,3, 4,5}, 
the orbit of N on {1, 2,3, 4,5} is 
{1, 2,3, 4,5}. 


Al 


Word of length 1 
e Nt,N is denoted by [1] 


N! = < (2,4,3,5) > = NY. The number of right cosets in [1] is equal 
to way = 2 = 5. the orbits of N“ on {1,2,3,4,5} are {1}, and {2,4,5,3}. We 
pick a representative, say ¢; from each orbit and determine the double cosets that 


contains Nt;. 
Ntyt € [*] (1 goes back to the double coset [*]), since t] = e. 


Thus, t, takes [1] to [»]. 


Word of length 2 
e Nt t2N is denoted by [12]. 


We note that N“?) > NY = 1. Now tyto = tet;. The number of right 
cosets in [12] is to Ney = 2 = 10. The orbits of N“ on {1,2,3,4,5} are {5}, 
{1,2},and {3,4}. 


Ntitg € [12] (2 goes to the double coset {12]). 


We now take the representative 2 of the orbit {1,2}. and determine that Ntitatz = 
Nt, € [1]. So 2 tis take [12] to [1]. Take the representative 3 of the orbit 
{3,4} give a reason why Ntytotzs = Ntyto, Ntytets = Nt it. and determine that 
Ntitotz = Ntit2 © [12]. And take the representative 5 of the orbit {5} and 
determine that Ntytots = Ntit € [12]. 

Since the set of right cosets are closed under right multiplication by ts 
where i = 1, 2, 3, 4, 5 , we must have completed the double coset enumeration 
of G over N. We summarize the information in the following diagram we now 
compute the order of G. 


Now 


IG| = | 2*5:(5:4) | 
[a—2y— ate? ]4 [yl xt]8 [22 *t]5 : 


N N N 


Thus, 


— |G| < (1+5+10) x 20 
— |G] < (16 x 20) 
==> |G| < 320 


Figure 3.1: Cayley diagram of of 2+ : (5: 4) over (5:4) 


3.2 Proof of G & 2": (5: 4) 


Gl is the permutation representation of G on the 3 right 
cosets of N= <x,y> in G. 


G<x, y,t>:=Group<x,y,t|x°5,y°4,y°-1l*x*-2*y*x°-1,t°2, 
(x°-2ey7-2*«t* (x73)) 74, (y7-1*x*-1Let) 78, (x7 2*t) 75>; 
#G 

£,G1,k:=CosetAction (G, sub<G|x,y>); 


The following composition factors and the normal lattice 
suggest that NL[2] ia an abelian normal subgroup of Gl. 


CompositionFactors (Gl); 


Cyclic (2) 


Cyclic (2) 


Cyclic(5) 


Cyclic (2) 
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Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


NL:=NormalLattice (G1); 


ly; 


Normal subgroup lattice 

[5] Order 320 Length 1 Maximal Subgroups: 4 
a Order 160 Length 1 Maximal Subgroups: 3 
4 Order 80 Length 1 Maximal Subgroups: 2 
i, Order 16 Length 1 Maximal Subgroups: 1 
ay Order 1] Length 1 Maximal Subgroups: 
IsIsomorphic(NL[2],X); 


true 


Now NL[2] = 2°4. A presentation of 2°4 is 
2° 4={a,b,c,d,e,f|a°2,b6°2,c°2,a°2,e°5,f°4,e°f = e°2, (a,b), 
(a,c), (a,d), (b,c), (b,d), (c,d) }. 


X:=AbelianGroup(GrpPerm, [2,2,2,2]); 
IsIsomorphic(NL[2],X); 
true 


The quotient group q = G1/NL[2] 

is the group 

(5:4) with presentation 

q ={H<a,b,c,d,e, f>:=Group<a,b,c,d,e,f|a°2,b°2,c°2, 

d*2, (a,b), (a,c), (a, d), (b,c), (6b, da), (c,d),e°5,£°4,e° f=e*2, 
a°e=b,a°f=axc , b°e=c , b°f=axbexd , c°e=d , c°f=axctd , 
d*e=axbxcrd ,d°f=b*ed>;}. 

q,ff:=quo <G1|NL[2]>; 

qr 

Permutation group q acting on a set of cardinality 5 
Order = 20 = 2°2 « 5 


(2, 3, 5, 4) 
Id(q) 


IsIsomorphic(Gl,hl); 
true 


Thus Gl is a semi-direct product of $2°4S by (5:4). 

The action of (5:4) on 2°4 is a°c=a*6x*b,a*d=a76, 
a°e=a*2xb*6,b° c=b,b° d=b*6,b*e=a7~3*xb75. 

Hence, a presentation of 2°4:(5:4) is given by{q={H<a,b,c, 
d,e, £>:=Group<a,b,c,d,e,f|a*2,b°2,c°2,da°2, (a,b), (a,c), 
(a,d), (b,c), (b,d), (c,d),e°5,£°4,e° f=e"2,a°e=b,a°f=axc , 
b*e=c , b°f=axb*xd , c°e=d , c° f=axced , d°e=axbxcrd , 
d*f=b*d>;}}. 

We finally verify that Gl= 2°4:(5:4). 


T:=Transversal (G1,NL[2]); 
fE(T[2]) eq q.1; 
true 


fE(T[3]) eq q.2; 
true 


fOr. ap jy Kel ser TOee22 1. cdo 

if A°T[3] eq A*ix*B°j*C°k*D°1 then 
1,j,k,1; end if; end for; 

Le Or ke 2Q 


0 
2 
2 


NM ON 


for i,j,k,l in [0..2] do if B*T[2] 
eq A7~i*B*j*C*k*xD*1 then 

i,j,k,1; end if; end for; 

0010 


NONNN OOO 
NN OONN O 
NON ON ON 


for Tap ke Ura Oo dow Bers] 
eq A*ixB*j*C*k*D*1 then 

iy yk ply end tty vend tory 

101 

Le 


for a,j, Ky. ar [0.42] do 2 -CFT E24] 
eq A°i*xB° j*C°k*D*1 then 
Ly 1; end if; end for; 


~ 


NNOONNOOCU 


~ 


NONONON OO WF 


~ 


NONNN OOO OC KF 


for i,j,k,l in [0..2] do if C*T[3] 
eq A*ixB*j*C*k«D*1 then 

4 yk pe? ene: he send: (hOry 

O11 

Ze oka 


fOr ay ijk: aan. [03.02]. de “at DAT [2] 
eq A°i*xB* j*C°k*D*1 then 

1,j,k,1; end if; end for; 

tTidiil 


for 1,j,k,1 an [08.2] do- af D°T[S3] 
eq A°ixB*° j*C°kx*xD*1 then 
,l; end if; end for; 


’ ’ 


i> eal 
ee ae 
Oy ad et 
of Orit 
B.D 


H<a,b,c,d,e, £>:=Group<a,b,c,d,e,f|a°2,b°2,c°2,da°2, 
(a,b), (a,c), (a, d), (b,c), (b,d), (c,d),e75, £74, 
e°f=e*2,a°e=b, a*f=atrc , b°e=c , b*f=atrbed , 

c°e=d , c°f=axcxd , d°e=axbecxd , d° f=bxd>; 

#H; 
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f1,h1,k1:=CosetAction (H, sub<H|Id(H)>); 
IsIsomorphic(Gl,hl); 
true 


3.3. Magma Work for 2*° : (5: 4) 


S:=Sym(5); 

xx:=S!(1,2,4,5,3); 

yy:=S! (2,4,3,5); 

N:=Sub<S|xx,yy >; 

Stabiliser (N,1); 

#N; 

G<x,y,t>:= Group<x,y,t|x°5,y°4,y° {-l} *x* {-2} *«y*x* {-1},t7°2, 
( 

( 


t,y), (x¥°{-2} *y7 {-2} «t>{x73})°4, (y7{-l} «x7 {-l}«t) 78, 
x7 2x*t) 75> 

£,G1,k:=CosetAction (G, sub<G|x,y>); 
IN:=sub<G1|f(x),f(y)>; 

CompositionFactors (Gl); 
#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>) ; 

DoubleCosets (G,sub<G|x,y>,sub<G|x,y>); 

NN<a,b>:= Group<a,b|a~5,b°4,b° {-1l} x*a* {-2} *«bxa* {-1l}>; 
Sch:= SchreierSystem(NN, sub<NN|Id(NN) >); 


ArrayP:=[Id(N): i in [1 .. 20]]; 

EOF Js am. [2° «..-20]) de 

P :=[Id(N): 1 in [1 #Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq (Sch[i])[j] eq 1 then P[j]:=xx; end if; 

if Eltseq (Sch[i]) [3] eq -1 then P[j]:=xx*{-1}; end if; 
if Eltsegq (Sch[1i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq (Sch[i]) [3] eq -2 then P[j]:=yy°{-1}; end if; 
end for; 

PP:=Id(N); 

for k in [1 .. #P] do 

PP:=PP*P[k]; end for; 

ArrayP[i]:=PP; 

end for; 

for iin [1 .. 20] do if ArrayP[i] eq N! (2,4,3,5) 


then Sch[i]; 

end if; end for; 

prodim := function(pt, Q, I) 

Return the image of pt under permutations Q[i] 


applied sequentially. 

Vi=pt; 

for. Li: in Ido 

vi=v° {Q[il]l}; 

end for; 

return v; 

end function; 

ts := [ Id(Gl): i in [1 .. 5] ]; 

:=f(t); ts[2]:=f(t*x); ts[3]:=f (t7* {x°4}); 
2=f(t*{x°2}); ts[5]:=f (t° {x73}); 


<This cst function will keep track of all single cosets> 


ecst:= [null : i in [1 .. Index(G, sub<G|x,y>)]] 
where null is [Integers() |]; 

for i:= 1to 5 do 

cst[prodim(l1, ts, [1])]:=[1]; 

end for; 

m:=0; for iin [1 .. 16] do if cst[i] ne [] 


then m:=m+l; end if; end for; m; 


N1:=Stabiliser(N, [1]); 


S:={[1]}; 

SS:=S*{N}; 

SS; 

#SS; 

SSS:=Setseq(SS) ; 

SSS; 

for iin [1 .. #SS] do 


for g in IN do 

if ts[1] eg 
g*ts[Rep(SSS[i]) [1] ] 

then print SSS[i]; 

end if; end for; end for; 


Nlis:=N1; 

#N1s; 

Tl:=Transversal(N,N1s); 

#T1; 

for i := 1 to #T1 do 

SS:= [1] °{T1[i]} 

cst [prodim(l1, ts, SS)] := SS; 
end for; 

m:=0; 


for iin [1 .. 16] do if cst[i] ne [] 


A8 


then m:=m+l; end if; end for; m; 
Orbits (Nl1s); 
#N1s; 


N12:=Stabiliser(N, [1,2]); 


S:={[1,2]}; 

SS:=S* {N}; 

SS; 

#SS; 

SSS:=Setseq (SS); 

SSS; 

for iin [1 .. #SS] do 


for g in IN do if ts[l]*ts[2] eq 
gxts[Rep(SSS[i]) [1] ]«ts[Rep(SSS[i]) [2]] 
then print SSS[i]; 

end if; end for; end for; 


N12s:=N12; 

#N12s; 

T12:=Transversal(N,N12s); 

#T12; 

for i := 1 to #T12 do 

SS:= [1,2]°{T12[i]}; 

cst [prodim(l1, ts, SS)] := SS; 

end for; 

m:=0; 

for iin [1 .. 16] do if cst[i] ne [] 


then m:=m+1; 

end if; end for; m; 

Orbits (N12s); 

for m,n in IN do if ts[l]*ts[2] eq m*(ts[1])*{n} 
then m,n; end if; end for; 


N123:=Stabiliser(N, [1,2,3]); 

St=( 11, 27-3147 

SS:=$S*{N}$; 

SSS:=Setseq(SS) ; 

for iin [1 .. #SS] do 

for g in IN do if ts[1l]*ts[2]xts[3] eq 
gxts[Rep(SSS[i]) [1] ]*ts[Rep(SSS[1]) [2] ]*ts[Rep(SSS[1i]) [3]] 
then print SSS[i]; 

end if; end for; end for; 

N123s:=N123; 

for g in N do if 1l°{g} eq 1 and 2°{g} eq 3 and 3°{g} eq 2 
then N123s:=sub<N|N123s,g>; end if; end for; 


SS; 


cst [i] [] 


ne 


#N1238; 

T123:=Transversal (N,N123s); 
#T123; 

for i := 1 to #T123 do 
SS:= [1,2,3]°*{T123[i]}; 
cst[prodim(l1, ts, SS)] := 
end for; 

m:=0; \ 

for iin [1 16] do if 
then m:=m+l; end if; end 


Orbits (N123s); 
IN do if ts[1 
end if; 


for m,n in 


then m,n; 


Si={[1, 2,3) 4; 
SS:=S*{N}; 
SSS:=Setseq(SS); 

for i in [1..#SS] do 

for g in IN do if ts[1]* 


ts[2]*ts[5] 


for; m; 


]*xts[2]*ts[3] eq m*(ts[1]«ts[2])*{n} 


end for; 


N125:=Stabiliser(N, [1,2,5]); 


eq 


gxts[Rep(SSS[1i]) [1] ]*ts[] 
then print SSS[i]; 


Rep (SSS[i]) [2] ]«ts[Rep(SSS[i]) [3]] 


’ 


end if; end for; end for 
N125s:=N125; 

# N125s; 

T125:=Transversal (N,N125s); 
#T125; 

for i := 1 to #T125 do 

SS [iy 2 p51" $T125 [a] $3 


cst [prodim(1, 
end for; 
m:=0; 


GS, 


for iin [1 16] 
end if; end for; 
Orbits (N125s); 


do if 
Mm; 


/* To print all 
[1 


for iin 10] do i, 


SS)] := 


SS; 


cst[i] ne [] then m:=m+t1; 


single cosets */ 


cst[i]; end for; 


AQ 
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Chapter 4 


Construction of 


O10) 3 eee ev) 


4.1 Double Coset Enumeration of (10 x 10) : ((3 x 4) : 2) 


The group G =< 2,y,tly4,y"1 «2? * y « 21,07, (t,y) > factored by 
yr eae eel 
where G = (15: 4) =< z,y > with x ~ (1, 2, 6,3, 8, 14, 10, 7, 12, 
11,15, 13,5,9, 4), 
y ~ (2,7,8,9)(3, 10,5, 11)(4, 12, 13, 6), 
and let t ~ ¢4. 


Now (7 #2714)? = 


SS ge ye hy tah, = ey ey rita: Se 
= y tat tetotaty =e 


So y~ta4tstat, = ty. We also have Ntstots = Nt, Thus, 


tstotaty = (1, 15, 14)(2, 13, 10)(3, 9, 12)(4, 11, 8)(5, 7, 6),... 


2*15:(15x4) | 
[y—txa—lxt}4 


IA 


We use our technique of double coset enumeration to show that |G| = 
2400.. 


In order to obtain the index of N in G we shall perform a manual double coset 
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enumeration of G over N; thus we must find all double cosets [w] = NwN and 
work out how many single cosets each of them contains. We shall know that we 
have completed the double coset enumeration when the set of right cosets obtained 
is closed under right multiplication. Moreover, the completion test above is best 
performed by obtaining the orbits of N() on the symmetric generators.We need 
only identify, for each [w], the double coset to which the right coset Nwt; belongs 


for one symmetric generator t; from each orbit. 


Word of length 0 
e NeN is denoted by |*]. 


NeN = {N}. The number of right cosets in |*] is equal to 


Bs — & = 1. Since N is transitive on 
{1, 2,3, 4,5, 6, 7, 8,9, 10, 11, 12, 13, 14, 15}, 
the orbit of N on {1, 2,3, 4, 5, 6, 7,8, 9, 10, 11, 12, 13,14, 15} is 


{1, 2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15}. 


Word of length 1 


e Nt,N is denoted by [1] 


N1=< (2,7,8, 9)(3, 10, 5, 11)(4, 12, 13,6) >=N™. 


IN| _ 60 _ 


The orbits of N® on {1,2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15} 
are {1}, {14}, {15}, {2, 7,8, 9}, {3, 10,5, 11}, and {4, 12, 13, 6}. 


We pick a representative, say t; from each orbit 


The number of right cosets in [1] is equal to 


and determine the double cosets that contains N¢;. 


Ntyti € [*] (1 goes back to the double coset [*]), since t? = e. 


Word of length 2 


e Ntit,4N is denoted by [114]. 


We note that NGI) > NM4 = 1. 


Now tyti4 = tgtio, titia = tolis, titia = trits and tyty4 = tte. 


The number of right cosets in [114] is equal to TNO = 9 = 3. 
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The: orbits of WO) on 41,9, °3, 4, 5.°6,.°7;-8;. 9, 10, 11,19) 13.14,15% “are 


{1,3, 10, 11,5},{2, 7,8, 15,9} and {4, 12,6, 13, 14}. 
We now take the representative 14 of the orbit 
{1, 2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15}. 

and determine that Ntytiti = Nt € [1]. 

So five of the fifteen tis take [114] to [1]. 


e Ntit;N is denoted by [15]. 


We have N(“@) > N' = 1 show the generators of N°). 


Now N°) >< tits = tgto, tits = tiote, tits = tuts, tits = tst7 > 


The number of right cosets in [15] is equal to TNany = 9 =3. 


The orbit of N@) on {1, 2,3, 4,5, 6, 7, 8,9, 10, 11, 12, 13,14, 15} is 


{1,3,10, 11,5}, {2,7,8, 15,9} and {4, 12, 6, 13,14} show N“) generators. 


We now take the representative 2 of the orbit 
{1,2,3,4,5, 6,7, 8,9, 10, 11, 12, 13, 14, 15} 

and determine that Ntitot2 = Nt, € [1]. 

So five of the fifteen tis take [15] to [1]. 


e Ntit3N is denoted by [13] 


We have N@?) > NB = 1, 

Now t1t3 = totg, tits = tetra, tits = tgtio, titz = tgtz, 

tyt3 = tyatie, tit3 = tote, tits = trtis, tit3 = tiotis, tits = tate, tit3 = tyatis, 

tytz = tygta, titg = tits, tylg = tstyandtytz = tysto, 

We now take the representative 3 of the orbit 
{1,2,3,4,5,6, 7,8, 9,10, 11, 12, 13, 14, 15} 

and determine that Ntit3ts3 = Nt, € [1]. 

So one of the fifteen tis take [13] to [1]. 


The number of right cosets in [13] is equal to Hany = © = 60. 
The orbit of N“@%) on {1, 2,3, 4,5, 6, 7, 

8,9, 10, 11, 12, 13,14, 15} is {1}, {2}, 

{3}, {4}, {5}, 16f, {73 {8}, 

{9}, {10}, {11}, {12}, 13}, {14} 

and {15}. 


Word of length 3 
e NtytyatyN is denoted by [1141]. 


We note that N@4) > N41 — 1. Now tity = tratis, titia = tasty. 
The number of right cosets in [1141] is equal to 
Ta = % = 5 show N(!4) generators. 
The orbits of N@!4) on 
{1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11, 12, 13, 14,15} are {1, 14, 15}, 
{2,7, 11, 3, 5, 10, 12, 13, 4, 6, 8, 9}. 
We now take the representative 1 of the orbit 
{1, 2,3, 4,5, 6, 7,8, 9, 10,11, 12, 13,14, 15}. and determine that 
Ntityatity = Ntitis € [114]. So three of the fifteen t/s take [1141] to [114]. 
Now, we can construct the Cayley diagram. Since the set 
of right cosets are closed under right multiplication by t? 
where i = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11, 12, 13, 14, 15, 


we can determine the index of N in G. We conclude that 


__ y_2*15:(15:4) 

IG| _ Fire ors 
IN}, INL | IN| yg IM gM I 
IN| TING] TINGS, [wey T [wes] 7 pel 


=e |G| < ( [NGI 


— |G| < (14+ 15+3+60+60+5) x 60 


—> |G| < (144 x 60) 


=> |G| < 2400 
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[1 141] 


[13] 


Figure 4.1: Cayley diagram of (10 x 10) : ((3 x 4) : 2) over (15: 4) 


4.2 Proof of G = (10 x 10) : ((8 x 4) : 2) 


G<x,y,t>:=Group<x,y,tly°4,y° -1*x°-2*y*x*-1,t°2, (t,y), 
(y°-1l*x*-1l«t) 74>; 
#G; 
2400 


£,G1,k:=CosetAction (G, sub<G|x,y>); 
NL:=NormalLattice (G1); 


ly; 


Normal subgroup lattice 


[25] Order 2400 Length 1 Maximal Subgroups: 22 23 24 
[24] Order 1200 Length 1 Maximal Subgroups: 21 

23] Order 1200 Length 1 Maximal Subgroups: 19 20 21 
[22] Order 1200 Length 1 Maximal Subgroups: 18 21 
[21 Order 600 Length 1 Maximal Subgroups: 16 17 
[20 Order 600 Length 1 Maximal Subgroups: 15 17 
[19 Order 600 Length 1 Maximal Subgroups: 14 17 


[18] Order 
17 Order 
16 Order 
15] Order 
14] Order 
13 Order 
12] Order 
TA. ] Order 
[10 Order 
9 Order 
8 Order 
7 Order 
6 Order 
5] Order 
4] Order 
3 Order 
2 Order 
1 Order 
/x The large 


For as ane [ies 
end if; end 


rFoN oO B® WN FP 


We factor Gl 


gq, ££:=quo<Gl 
Gr 


400 Length 
300 Length 
200 Length 
120 Length 
120 Length 
100 Length 
100 Length 
60 Length 
60 Length 
50 Length 
20 Length 
20 Length 
12 Length 
25 Length 
4 Length 
5 Length 
5 Length 
1 Length 


st abelian 
-25] do if 
for; 


by NL[12]. 


INL[12]>; 


Maxim 


Maxim 
Maxim 
Maxim 
Maxim 


Maxim 
Maxim 
Maxim 
Maxim 


Maxim 
Maxim 
Maxim 
Maxim 


Maxim 
Maxim 


Maxim 
Maxim 


Maxim 


n 


NNN N 


n 


ubgroups: 


ubgroups: 
ubgroups: 
ubgroups: 
ubgroups: 


ubgroups: 
ubgroups: 
ubgroups: 
ubgroups: 


ubgroups: 
ubgroups: 
ubgroups: 
ubgroups: 


ubgroups: 
ubgroups: 


ubgroups: 
ubgroups: 


ubgroups: 


then i; 


(op > a OCC) 
~~ 
(ee) 


BwN UW 
ws 


subgroup of Gl is NL[12].*/ 


IsAbelian(NL[i]) 


Permutation group q acting on a set of cardinality 12 


Order = 24 = 
(1, 2, 4 


2° 3. He 03 
) (3, 5, 


7) (6, 


10) ( 


9, 


11, 


12) 
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(1, 3, 6, 9) (2, 5, 8, 11) (4, 7, 10, 


C27 By Se ot) Oy BOY CTL Le) 


Thus Gl is a mixed extension of NL[12] 


/x Isomorphism Type of NL[12]:*/ 
X:=AbelianGroup (GrpPerm, [10,10]); 
IsIsomorphic(NL[12],X); 


true 


A:=G1!(1, 24, 25, 15, 29, 36, 33, 19, 


(4, 21) (5, 20) (6, 35) (8,39) (9, 11) (10, 


32, 


22, 26, 17, 40) (13, 16) (14, 34) (27, 38); 


2=G1! (1, 22, 29, 10, 32; 37, 25, 17, 


Tl, 27, -20, 14, 16, 8)-(4;30;7 9, 33,. Sy 


33% 


CTy 23) 157. “40,- 19% 18). 247 2io,> 36,0 30) 7 


NL[12] eq sub<G1|A,B>; 
true 


12) 


by q. 


7) (2, 28) (3, 
31, 12, 18, 


TA) CZs 6% 


34; 13, 39; 


IsIsomorphic (NL[12],DirectProduct (CyclicGroup (10), 


CyclicGroup(10))); 


\noindent Thus, NL[12] is isomorphic to 10x10 
(direct product of two cyclic groups of order 10). 


/* Isomorphism Type of q:*/ 
or 


Permutation group q acting on a set of cardinality 12 


Order = 24 = 2°73 * 3 
(Lip 27. AY (3. Sx. PY) 065-85. 100) (9; 


dey 


(1, 3, 6, 9) (2, 5, 8, 11) (4, 7, 


0, 


(2, 4) (5, 7) (8, 10) (11, 12) 


/x The generators of q are ql,q2,q3. 
ql:=q!(1, 2, 4) (3, 5, 7) (6, 8, 10) (9, 
q2:=q!(1, 3, 6, 9) (2, 5, 8, 11) (4, 7, 
q3:=q!(2, 4) (5, 7) (8, 10) (11, 12); 
nl:=NormalLattice(q); 


’ 


nl; 
Normal subgroup lattice 


*/ 
1; 
he 


[11] Order 24 Length 1 Maximal Subgroups: 8 9 10 
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[10 Order 12 Length 1 Maximal Subgroups: 6 
[39 Order 12 Length 1 Maximal Subgroups: 4 6 
8 Order 12 Length 1 Maximal Subgroups: 5 6 7 
7 Order 6 Length Maximal Subgroups: 3 
6 Order 6 Length Maximal Subgroups: 2 3 
5 Order 6 Length Maximal Subgroups: 3 
4] Order 4 Length Maximal Subgroups: 2 
3 Order 3 Length 1 Maximal Subgroups: 1 
2 Order 2 Length 1 Maximal Subgroups: 1 
1] Order 1 Length 1 Maximal Subgroups: 
/x* The largest abelian subgroup of gq is nl[9] of order 12.x«/ 


IsAbelian(nl1[9]); 
true 


/x Thus, q is a semi-direct product of 3x4 by 2. «/ 

/x A presentation for q is given by */ 

FPGroup (q) ; 

Finitely presented group on 3 generators 

Relations 
a°3 = 1,b°4 = 1,c°2 = 1, (a, b) = 1, (a*-1 * c)72 = 1, 
b*-l * c* be c= l 


Q<a,b,c>:=Group<a,b,c|a°3 = 1,b°4 ,c°2 , (a, b) ,(a>-1 * c)*2 
best 4G. BDO. CoS 


Dee beisa ae NL[12]); 
f£(T[2]) eq ql; i [3]) eq q2; f£(T[4]) eq q3; 
D:=T[2]; 2 oe F:=T[4]; 


/* Action of q=<a,b,c> on NL[12]=<A,B> x*/ 
D:=T[2]; E:=T[3]; F:=T[4]; 

for i,j in [1..10] do if A°D eq A*ixB*j then i,j; 
end if; end for; 

6 5 

*d°a=d*6xe75 


for i,j in [1..10] do if A*E eq A*“ixB*j then i,j; 
end if; end for; 
7 10 
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d*b=d*7«*e*10 


for i,j in [1..10] do if A°F eq A*ixB*j then i,j; 
end if; end for; 

6 7 

da*c=d*6«e*7 


for i,j in [1..10] do if B°D eq A*ixB*”j then i,j; 
end if; end for; 
5 1 


e°a=d"5xe 

for i,j in [1..10] do if B°E eq A*“ixB”j then i,j; 
end if; end for; 

10 7 


e°b=d*10«e*7 

for i,j in [1..10] do if B°F eq A*ixB*j then i,j; 
end if; end for; 

5 4 


e°c=d*5xe74 
d*a=d*6*e*5,d*b=d*7*e*710,d* c=d* 6*e*7,e° a=d* 5xe,e*b=d710*e*7, 
e°c=d*5xe74 


/*x Writing Elements of q=<ql=a,q2=b, q3=c> in terms of 
NL[12]=<A=d,B=e> x/ 

T:=Transversal(G1,NL[12]); 

LECT) eqegq. 1; 

true 


fE(T[3]) eq q.2; 
true 


EP (TIAL) SoG 97 
true 


Order (T[2]), Order(T[3]), Order(T[4]); 
15:42 


for i ian [1.4] do if T[2]°si an NL[12]) then a; 
end if; end for; 

3 

6 


for i,j in [1..10] do if T[2]°3 eq A*°ix*B*j then i,j; 
end if; end for; 


for i,j in [1..10] do if (T[2],T[3]) eq A*ixB°j then i,j; 
end if; end for; 


4 8 

(Fe. AG 0s A BIBL. Gee A POT, Oy BE Ge. '9) 
(30, 35, 39, 34, 38) 

(CTO St ee Tare: 

(Ts. PO, 25, 12-99, S1y. 337 509, BRA TIO) Ta Ta 6s 1G, 


21y 21, 8, 20,7 3) 44,3975, 30% -28, 347-9, 35, 13,7 38) (7%, 40,7 
24; 315° U5; 18; 36% °237- 1Q¥ 26) 


for i,j in [1..10] do if (T[2]°-1«*T[4])°2 eq A°ixB*j then 
1,j; end if; end for; 
207 
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H<d,e,a,b,c>:=Group<d,e,a,b,c|d°10,e710, (d,e),a°3 =d*2xe°4,b°4 


c°2 ,(a, b)=d*4x*e78, (a°-1 * c)*2=d°2*e77,b°-1 * c * b * Cc, 
d*a=d* 6*e*5,d*b=d* 7*e710,d*c=d* 6*e"7,e° a=d* 5xe,e*b=d*10*e77, 
e°c=d*5*e*4>; 

#H; 

2400 


The following Magma segment shows that Gl is isomorphic to 
the mixed extension of the abelian subgroup (10x10) by the 
subgroup (3x4) :2 


H<d,e,a,b,c>:=Group<d,e,a,b,c|d°10,e710, (d,e),a°3 =d*2x*e*4,b°4 


c*2 ,(a, b)=d°4x*e78, (a°-1l * c)*2=d°2*e77,b°-1* c * b * c, 
d*a=d*6*e°75,d° b=d*7xe*10,d° c=d* 6*e"7,e° a=d* 5xe,e°b=d*10«*«e*7, 
e°c=d*5*e*4>; 

h,H1,k1:=CosetAction (H, sub<H|Id(H)>); 

IsIsomorphic(G1,H1); 


true 


y 


Chapter 5 


Construction of PGL(2, 7) 


5.1 Double Coset Enumeration of PGL(2,7) 


We start with the group G with symmetric presentations the group 
CHaae, ghee Lye aa 
factored by [2* x ¢]?, [x? * t]°, and [x° « t]4, 
where G = Dy, =< 2, y > with x ~ (1, 2, 3, 4,5, 6, 7, 8, 9, 10, 11, 12, 13, 14), 
y ~ (1, 13)(2, 12)(3, 11)(4, 10)(5, 9)(6, 8). 
N =< 2,y >& Dia, and we note that G = PGL(2,7). 
However, we note that our relations force sub < G|xz,y >& Dz. 
Thus, we replace x ~ (1, 2,5, 7,6,3,4),and y ~ (1, 3)(2, 6)(5, 7) 


as follows: 


> H<a,b>:=Group<a,b|b*2, (a°-1l*b)*2,a77>; 

> #H; 

14 

> ff,H1,kk:=CosetAction (H, sub<H|Id(H)>); 

> H1; 

Permutation group Hl acting on a set of cardinality 14 
(lye 2 Sy 97. VA. 8). 2. Pe dd 14 2376 TOy, 6) 
(1, 3) (2, 6) (4, 7) (5, 10) (8, 11) (9, 13) (12, 14) 

> £f,H1,kk:=CosetAction (H, sub<H|b*a*2>) ; 

> Aly; 

Permutation group Hl acting on a set of cardinality 7 

Order = 14 =2 x 7 
(Ly 25 Sy T2674 By 4) 
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(1, 3) (2, 6) (5, 7) 
> Stabiliser(H1,1); 
Permutation group acting on a set of cardinality 7 
Order = 2 
(2, 4) (3, 5) (6, 7) 
> ff (b*a72); 
(2, 4) (3, 5) (6, 7) 


Now (x*t,)? = e 
rhe he hh Se 
=> gt xctte 4tyr4t, =e 
= r'tc*t'2*)t, =e 
=> xr toteti =e 
So x!2totg = 1. We also have Ntots = Nty. 


(214)? =e 
=: EP uri Se 
=> gt) 232377 3t 27t) = e 
=> 2t,2%'s)\t, = e. 
=> Pitt =e. 
So x°t4t7 = 1. We also have Ntgt7 = Nty. 
And, (2°t,)* =e 
=> 7°t)2°t 2°t2°t) = e 
=> ot) etre 5t et, = e 
=> 2 t)2°t 210s )t1. 
— 2 t,2'5t'r0)tl25)t = e. 
> 7¢ly1)\tlg te s5)t, = e. 
= 7 Etta =e: 
So 27° tot7tz = 1. We also have Ntot7ts = Nth. 


Thus, 


totety = ae 5, 6, 4, 2, e 3), 
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tatrty = (ae 3, ih 2, 4, 6, 5), 
tot7tsty = (1,2,5,7,6,3,4),... 


We use our technique of double coset enumeration to show that 


IG| = | aa ane eae | < 336.. In order to obtain the index of N in G we shall 


perform a manual double coset enumeration of G over N; thus we must find all 


double cosets [w] = NwN and work out how many single cosets each of them 
contains. We shall know that we have completed the double coset enumeration 
when the set of right cosets obtained is closed under right multiplication. More- 
over, the completion test above is best performed by obtaining the orbits of N“™ 
on the symmetric generators. We need only identify, for each [w], the double coset 
to which the right coset Nwt; belongs for one symmetric generator t; from each 
orbit. 


Word of length 0 
e NeN is denoted by |*]. 


NeN = {N}. The number of right cosets in [*] is equal to x aap = 1, 
Since N is transitive on {1, 2,3, 4,5, 6, 7}, 
The orbit of N on {1,2,3,4,5,6,7} is 
{1,2,3,4,5, 6, 7}. 


Word of length 1 
e Nt,N is denoted by [1] 


NOS 0,4) (9: 5)(6,7) SSN. 
The number of right cosets in [1] is equal to 
ey = = =7. The orbits of N™ on 
{1, 2,3, 4,5, 6, 7} are {1}, {2, 4}, 
{3, 5) and 6,7}. 
We pick a representative, say t; from each orbit and determine the double cosets 


that contains N¢;. 
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Nt,t, € [*] (1 goes back to the double coset [*]), since t? = e. 
Ntit2 € [1] (2 goes to the double coset [12]) 
Nt,t3 € [1] (2 goes to the double coset [13]) 
Ntite € [1] (2 goes back to the double coset [1]),since ty * tg = x7? * to. 


Thus, t, takes [1] to [*], tg take [1] to itself. And to, tz 
takes to new double coset {12],[13] respectively. 


Word of length 2 
e Ntit2N is denoted by [12]. 


We note that N@?) > N12 = 1. Now tite = tats 
(1,3, 5, 7,9, 11, 13)(2, 4,6, 8, 10, 12,14) € NG?) 
The number of right cosets in [12] is equal to HO ==7. 
The orbits of N“?) on {1,2,3,4,5,6,7} is 
{7}, {1,4}, {2, 3},and {5, 6}. 
We now take the representative 2 of the orbit 
dC pty aed 23) anid:4 5,6. 
and determine that Ntitot, = Ntyt2 € [12]. So 2 of the seven tis take [12] to [12] 
itself. 


e Ntit3N is denoted by [13]. 


We have N@3) > NB = 1, 
Now tt3 = tatz. 
The number of right cosets in [13] is equal to NaN = =7. 
The orbit of N“%) on {1, 2,3, 4,5, 6, 7} is 
{6}, {1, 2}, {3, 7},and {4,5}. We now take the representative 3 of the orbit 
{6}, {1, 2}, {3, 7},and {4,5} 
and determine that Ntit3t3 = Ntits € [13]. So 2 of the seven tis take [13] to [13]. 


e NtitgN is denoted by [16] 
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We have N@®) > N16 = 1, 
Now tt = tatz. 
The number of right cosets in [16] is equal to Teo ==7. 
The orbit of N“%) on {1, 2,3, 4,5, 6, 7} is 
{2}, {1,5}, {3, 6},and {4,7}. We now take the representative 6 of the orbit 
{2}, {1, 5}, {3,6},and {4, 7} 
and determine that Ntitgts = Ntite € [1]. So 2 of the seven tis take [16] to [1]. 


Word of length 3 
e Ntitot7N is denoted by [127]. 


We note that N@2) > N27 = 1. Now titaty = totste, tstets, tstzts, 
tet7te, tatst7, trteta, trtstr, titate, tatits, tetsty, tstota, tatyts, tatate 
(1, 3,5, 7,9, 11, 13)(2, 4,6, 8, 10, 12,14) € N@?7) 
The number of right cosets in [127] is equal to 
The orbits of N@?” on {1,2,3,4,5,6,7} is 
1355 Gar 
We now take the representative 7 of the orbit 
{1, 2, 3, 5,6, 4, 7}. 
and determine that Ntitat7t7 = Ntitet7 € [127]. So all of the seven tis take [127] 
to.[12|: 


|N| —_ 14 _ 1 
[ING27, — 14 — 


e NttotiN is denoted by [121]. 


We have N@2) > N12! = 1, 


Now tytoty = tot to. 


N 
ee 


The number of right cosets in [121] is equal to wen = 2 > 


The orbit of N“?) on {1,2,3, 4, 5, 6,7} is 

{6}, {1, 2}, {3, 7},and {4,5}. We now take the representative 1 of the orbit 

{6}, {1, 2}, {3, 7},and {4,5} 

and determine that Nt, tetit, = Ntitet, € [12]. So 2 of the seven tis take [121] to 
[12]. 
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e NtitgtsN is denoted by [125] 


We have N25) > N125 = 1, 


Now ty tots = tytgts. 


N 
|N| l4_ 7 


The number of right cosets in [125] is equal to wen = 2 = 


The orbit of N“?5 on {1,2,3,4, 5,6, 7} is 

{1}, {2,4}, {3, 5},and {6,7}. We now take the representative 5 of the orbit 

{1}, {2,4}, {3,5},and {6, 7} 

and determine that Ntitotst; = Ntite € [12]. So 2 of the seven tis take [125] to 
[12]. 


Word of length 3 
e NtitstgN is denoted by [136]. 


We note that N“2:7) > N27 = 1. 
Now Gitte = Stitt Ghite Gia 
eb BA Ed ike stato oe 
(1, 3,5, 7,9, 11, 13)(2, 4,6, 8, 10, 12,14) € N39) 
The number of right cosets in [136] is equal to 
The orbits of N39) on {1,2,3,4,5,6,7} is 
{1,2, 3, 5,6, 4, 7}. 
We now take the representative 6 of the orbit 
1193 5 Gary: 
and determine that Ntitste6ts = Ntits € [13]. So all of the seven tis take [136] to 
[3h 


IN| _ 14 1 
[ING27] — 14 — 


e Ntit3tiN is denoted by [131]. 


We have N(3) > N18! = 1, 


Now tyts3ty = tatots. 


|N| er, 


The number of right cosets in [131] is equal to wep = 2 > 


The orbit of N“3) on {1,2,3, 4,5, 6,7} is 
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{7}, {1, 4}, {2,3},and {5,6}. We now take the representative 3 of the orbit 

{7}, {1,4}, {2,3},and {5,6} 

and determine that Ntit3tit; = Ntits € [13]. So 2 of the seven tis take [131] to 
[13]. 


e Ntit3t,N is denoted by [134] 


We have N34) > N134 = 1, 
Now tyt3t4 = tytsto. 
The number of right cosets in [134] is equal to INO = =7. 
The orbit of N“3 on {1,2,3, 4, 5,6, 7} is 
{1}, {2,4}, {3,5},and {6,7}. We now take the representative 4 of the orbit 
{1, 2,3, 4,5, 6, 7} 
and determine that Ntitstat, = Ntits € [13]. So 2 of the seven tis take [134] to 
[13]. 
Now, we can construct the Cayley diagram. Since the set of right cosets 
are closed under right multiplication by t? 
where i = 1, 2, 3, 4, 5, 6, 7, we can determine the index of N in G. We conclude 


that 


|G| < 2*7:Dia4 | 


[at«t]3 [a3 xt] [a> xt]4 


N N N N N 
= |G < (IN| + f+ dy + oy t ween + py) * I 


— |G|<(1+74+7474141)x14 


— |G| < (24 x 14) 


=> |G| < 366 


[136] 


Figure 5.1: Cayley diagram of PGL(2,7) over Dy4 
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Chapter 6 


Construction of S¢ 


6.1 Double Coset Enumeration of 5¢ 


The group G =< 2, y,t|y*,2°5,y lex 2*y*21,t?, (t,y) > 
factored by [y~1 * x71 * ¢#]° and [x? « ¢]®, 
where G = (5:4) =< x,y > with x ~ (1, 2,4, 5, 3), 
y ~ (2,4, 3,5), and let t ~ t,. 


Now (ylee Leite 
SS ae iy ee ey ae el HE 
1 


== a tei ae hye Fiala; Se 


=> yx tytatotsty =e 
So yx °ttatetz = t). We also have Ntvtat, = Nt, 


Also, (x? * t)® = e 
Pa hae he ttt ee 
= £7t 207 t x totstaty =e 


= ePitotstat) = €. 


So x!*t)tot3t, = t,. We also have 


Naty totsts = Nt. Thus, 
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ya ty tatotgty = (1, 4, 2, 3), 
x tytotstaty = Pik 5, 2, 3, 4), ete 


We use our technique of double coset enumeration to show that 
IG| = lj zee!) s| < 720.. In order to obtain the index of N in G we shall 


[y~ lxa— eae Ly «t]6 


perform a manual double coset enumeration of G over N; thus we must find all 
double cosets [w] = NwN and work out how many single cosets each of them 
contains. We shall know that we have completed the double coset enumeration 
when the set of right cosets obtained is closed under right multiplication. More- 
over, the completion test above is best performed by obtaining the orbits of N“™ 
on the symmetric generators. We need only identify,for each [w], the double coset 
to which the right coset Nwt; belongs for one symmetric generator t; from each 


orbit. 


Word of length 0 
e NeN is denoted by |*]. 


NeN = {N}. The number of right cosets in [*] is equal to ~ = P=1. 
Since N is transitive on {1,2,3,4,5}, 
The orbit of N on {1, 2,3, 4,5} is 
{1, 2,3, 4,5}. 


Word of length 1 
e Nt,N is denoted by [1] 


Nt=< (2,4,3,5) >=N. The number of right cosets in [1] is equal to 
Hey = 2 =5. The orbits of N on {1,2,3,4,5} are {1}, {2, 4,3, 5}, 
We pick a representative, say ¢; from each orbit and determine the double cosets 


that contains Nt;. 


Nt,t, € [*] (1 goes back to the double coset [*]), since t? = e. 
Ntits € [1,2] (4 goes to the double coset [12]) 
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Thus, t, takes [1] to [*] and to, t4, t3,ts take [1] to [12]. 


Word of length 2 
e Ntit2N is denoted by [12]. 


We note that N“@?) > N12 = 1. 
The number of right cosets in [12] is equal to Naa = 2 = 20. 
The orbits of N“?) on {1, 2, 3, 4, 5} are 
{1}, {2}, {3}, {4}, 15}.- 
We now take the representative 2 of the orbit 
{2}. 


and determine that Ntitotz = Nt, € [1]. So one of the five tis take [12] to [1]. 


Word of length 3 
e NtitotiN is denoted by [121]. 


We note that N“@2-) > N11 = 1, 
The number of right cosets in [121] is equal to INCH = 
of NO), 
The orbits of N“@?”) on {1, 2, 3, 4, 5} are 
{5}, {1, 4, 2, 3}. 
We now take the representative 1 of the orbit 
{1, 4,2, 3}. 
and determine that Nt,totit, = Ntit2 € [12]. So one of the five tis take [121] to 
[12]. 


BO; 22 


| = 95 show generators 


e Ntitot,N is denoted by [124]. 


We have N (24) > ies = 1. Now ty tot, = tytats, tytot, = tytsts, 
tytota = titste, 
The number of right cosets in [124] is equal to show generators of N‘ 


N 
IN 20 — 5, 


|N (24) | 4 


124) 


The orbit of N@?) on {1,2,3, 4,5} are 


{5}, and{1, 4, 2,3}. We now take the representative 4 of the orbit 
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{1, 2, 3,4, 5} 
and determine that Ntitotat, = Nt, © [12]. So one of the five tis take [124] to 
[12]. 
_ 2*5:D 
|G| = | grisa=ine ate eae | 
N N N N N 
= IG = (mH Hey Cy Ties) ay) x [N| 


— |G] < (1+5+20+5+5) x 20 


— |G] < (36 x 20) 


=> |G < 720 


[124] 


Figure 6.1: Cayley diagram of Sg over (5 : 4) 


6.2 Proof of G = S¢ 


> G<x,y,t>:=Group<x,y,tly°4,x°-5,y°-1*x*-2x*y*x°-1,t°2, 
(t,y) 7 (y°-1l*x7*-1x«t) “5s 


> 


(x°2*E) 657 


> #G; 

720 

> 

> £,G1,k:=CosetAction (G, Sub<G|x,y>); 
> IN:=sub<Gl1|f(x),f(y)>; 

> CompositionFactors (Gl); 

G 
Cyclic (2) 


Alternating (6) 


> s:=IsIsomorphic(G1,Sym(6)); 
> S; 
true 


6.3 Magma Work for S¢ 


S:=Sym(5); 

xxi=Sl(1, 2,.4,5, 3); 

VHS 2.4.3, 5); 

N:=sub< S|xx, yy >; 

# N; 

Ge 2, t > = Group< ay, th a 
Dre rae a he 

# G; 

f,G1,k:=Coset Action(G,sub< G|z, y >); 
IN:=sub< G1|f(x), f(y) >; 
CompositionFactors(G1); 

# DoubleCosets(G,sub< G|z,y >,sub< Gx, y >); 
DoubleCosets(G,sub< G|z,y >, sub< G|z,y >); 


1 


NN< a,b > := Group< a, blb4,a~°, b>! a2 *b «a! >; 
Sch:=SchreierSystem(NN,sub< NN|Id(NN) >); 
ArrayP:=[Id(N): i in [1..20]]; 
for iin [2 .. 20] do 
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P:=[Id(N): 1 in [1..4 Schlij]]; 

for j in [1..4 Schli]] do 

if Eltseq(Sch{i])[j] eq 1 then P|j]:=xx; end if; 

if Eltseq(Sch{i])[j] eq —1 then P[j]:=227'; end if; 
if Eltseq(Sch{i])[j] eq 2 then P|j]:=yy; end if; 

if Eltseq(Sch{i])[j] eq —2 then P[j]:=yy7'; end if; 
end for; 

PP:=Id(N); 


for k in [1..4 P] do 
PP:=PP*P|k]; end for; 
ArrayP|i]:=PP; 

end for; 

for iin [1 .. 20] do if ArrayP{i] 
eq N! (2, 4, 3, 5) 

then Sch{i; 

end if; end for; 

prodim := function(pt, Q, I) 
vi=pt; 

for i in I do 

ppl). 
end for; 
return V; 
end function; 


ts := | Id(G1): iin [1 .. 5] J; 


ts[1]:=f(t); ts[2]:f(e*); ts[3]:=£(e); ts[4]:=£(¢©); ts[5]—£(e); 


cst:=[null : i in [1 .. Index(G,sub< G|z, y >)]] 
where null is [Integers( ) | |; 

for i:= 1 to 5 do 

cst([prodim(1, ts, {i])]:=[i]; 

end for; 

m:=0; for iin [1 .. 36] do if cst|i] ne | | 
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then m:=m-+1; end if; end for; m; 


N1:=Stabiliser(N,[1]); 
=| 1); 

SS:=S%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do 

if ts[1] eq g*ts[Rep(SSS[i])[1]] 
then print SSS|ij; 

end if; end for; end for; 
Nis:=N1; 

# Nis; 
T1:=Transversal(N,N1s); 
# T1; 

for i := 1 te 4 T1-do 

se [1)et 

cst[prodim(1, ts, ss)] := ss; 


end for; 


m:=0;for i in [1 .. 36] do if cst[i] ne | ] 


then m:=m-+1; end if; end for; m; 
Orbits(N1s); 


N12:=Stabiliser(N,[1,2]); 
5 =k 

SS:=S%; 
SSS:=Setseq(SS); 

for iin [1 .. # SS] do 
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for g in IN do if ts[1]*ts[2] 

eq g*ts[Rep(SSS|i]) [1]}*ts[Rep(SSS fi) )[2]] 
then print SSS|iJ; 

end if; end for; end for; 
N12s:=N12; 

# N12s; 
T12:=Transversal(N,N12s); 
12: 

for ie) tose 22 do 

eo fo) 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N12s); 


N121:=Stabiliser(N,|1,2,1]); 
S:=[1,2,1]: 

sss": 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1] 
eq g*ts[Rep(SSS[i]) [1]]*ts[Rep(SSSIi)) [2] 
*ts[Rep(SSSi))[3]] 

then print SSS|ij; 

end if; end for; end for; 
N121s:=N121: 

4 N12I1s: 
T121:=Transversal(N,N121s); 
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4 T 121: 

for i:= 1 to # T121 do 

ge Oe, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 36] do if cst]i] ne | ] 
then m:=m-+1; end if; end for; m; 
Orbits(N121s); 


N123:=Stabiliser(N,[1,2,3]); 
SS 3 Seo": 
SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/3] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS fi) )[2]] 
*ts[Rep(SSS[i]) [3] 

then print SSS|ij; 

end if; end for; end for; 
N123s:=N123; 

# N123s; 
T123:=Transversal(N,N123s); 
# T123; 

fori = 1 to # F123-do 

Sot [Lesa] eel 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for i in [1 .. 36] do if cst|i] ne [ | 
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then m:=m-+1; end if; end for; m; 
Orbits(N123s); 


N124:=Stabiliser(N,[1,2,4]); 
SSL, 2:4|: 

SS:=S%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i]) [2]] 
*ts[Rep(SSS|i]) [3] 

then print SSS|ij; 

end if; end for; end for; 
N124s:=N124; 

# N124s; 
T124:=Transversal(N,N124s); 
ae 124: 

for i:= 1 to # T124 do 

sen= |i, oa Per 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N124s); 


N125:=Stabiliser(N,[1,2,5]); 
SS {b,2.5k 
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SS:=S%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2|*ts[5] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i]) [2]] 
*ts[Rep(SSS|i]) [3] 

then print SSS|iJ; 

end if; end for; end for; 
N125s:=N125; 

# N125s; 
T125:=Transversal(N,N125s); 
se 25? 
1T125:=Transversal(N,N125s); 
for <=. to # “F125.do 

sen= (ooo: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N125s); 


N1215:=Stabiliser(N,/1,2,1,5]); 

os |h2, 1.5); 

SS:=S%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts/1]*ts[2]*ts[1]*ts[5} 

eq g*ts[Rep(SSS|i]) [1]}*ts[Rep(SSSfi)) [2]] 
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*ts[Rep(SSSl[i])[3]]*ts[Rep(SSSIi]) [4] 
then print SSS|ij; 

end if; end for; end for; 
N1215s:=N1215; 

# N1215s: 
T1215:=Transversal(N,N1215s); 

# T1215: 

for i= 1ato. 2° T12 1hedo as t= [1,915] ee 
cst([prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 36] do if cst|i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1215s); 


N1245:=Stabiliser(N,/1,2,4,5]); 
S:=[1,2,4,5]; 

ss": 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[5] 
eq g*ts[Rep(SSS[i]) [1]]*ts[Rep(SSSIi)) [2] 
“ts[Rep(SSS|i))[3]]*ts[Rep(SSS[i]) [4]] 
then print SSS|ij; 

end if; end for; end for; 
N1245s:—N1245: 

# N1245s; 
T1245:=Transversal(N,N1245s); 
#11245; 


for 17= 1 to. T1245 do. s8-:=-[1,2,4,5) 97H, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 36] do if cst|i] ne | | 

then m:=m-+1; end if; end for; m; 
Orbits(N1245s); 
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Chapter 7 


Construction of $7 over (15: 4) 


7.1 Double Coset Enumeration of S7 over (15: 4) 


We factor the progenitor 2* : (15 : 4).ThegroupG =< z,y,t|y*,y~1 * 
x Qxyxx1,t’, (t,y) > factored by [y~1L*a7 1*t]®, [x7 *t]*, 2?ey- Lax” leten” ley 
gt xtac ley? xa 1xt, and [xxt*xz 1*t]* where N = (15:4) =< 2,y > witha ~ 
(1, 2,6, 3,8, 14, 10, 7, 12, 11, 15, 13,5,9,4), y ~ (2,7,8,9)(3, 10,5, 11)(4, 12, 13, 6), 
and let t ~ ¢4. 


Now (y~!x71t)® =e 
Sy iy ee a ae ae i a Se ee 


=> y °xStetratsty =e 
= y x tgtyats =e 


So y~®x*tgtysts = t). We also have Nigtyat; = Nt, 


Now. (e422) =e 
— x «tx? «tr? «tz? *xt=e 
— > rtigtgteti = € 
SP liists Si Se 


So x tiotste = ty. We also have Ntiotste = Nty 


Now x? xytexatxtexctxyxarxteciey en l«et=—e 
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1 1 


SS hy ELD CRU REO ERS. CRO ee he Se 
= x ly’xtiutisti =e 
=> gly?a Nits =e 

So a7ly*a~titis = ty. We also have Ntiytis = Nt 


Also, (x *t*a7-1*t)*=e 


1 1 1 


axtxeacitxtaxtxal«xtuxtexci«taxtexxnt«xt=e 


=> tot totitotitot; = e 


So tot tot totyte = ty. We also have 
Ntotitot tot) te = Nty. Thus, 


titet: = (1,14, 13, 12, 11, 10, 9,8, 7, 6,5, 4, 3, 2), 
trtat, = (1,6, 11,2, 7, 12, 3,8, 13, 4,9, 14,5, 10),... 


We use our technique of double coset enumeration to show that 


IGS 


——— 

In order to obtain the index of N in G we shall perform a manual double 
coset enumeration of G over N; (thus we must find all double cosets [w] = NwN 
and work out how many single cosets each of them contains. We shall know 
that we have completed the double coset enumeration when the set of right cosets 
obtained is closed under right multiplication. Moreover, the completion test above 
is best performed by obtaining the orbits of N“? on the symmetric generators. We 
need only identify, for each [w], the double coset to which the right coset Nwt; 


belongs for one symmetric generator t; from each orbit.) 
Word of length 0 


e NeN is denoted by |*]. 


NeN = {N}. The number of right cosets in |*] is equal to x = P=1. 
Since N is transitive on {1, 2,3, 4, 5,6, 7, 8,9, 10,11, 12,13, 14, 15}, 
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The orbit of N on {1,2,3,4,5,6, 7,8, 9, 10, 11, 12, 13, 14, 15} is 
{1,2,3, 4,5, 6, 7, 8,9, 10, 11, 12, 13, 14, 15}. 


Word of length 1 
e Nt,N is denoted by [1] 


N1=< (2,7,8, 9)(3, 10, 5, 11)(4, 12, 13,6) >=N. 
The number of right cosets in [1] is equal to 
Hey = © =15. The orbits of N“™ on 
{1,2,3,4,5, 6,7, 8,9, 10, 11, 12,13, 14, 15} are {1}, {14}, 
{15}, {2, 7,8, 9}, {3, 10,5, 11}, {4, 12, 13, 6}. 
We pick a representative, say t; from each orbit and determine the double cosets 


that contains N¢;. 


Ntyti € [*] since t? = e. 
So, 


t, takes [1] to [x]. 

Ntytia € [1] (1 goes back to the double coset [1]). 
Ntytis € [1] (1 goes back to the double coset [1]). 
Nt,tg € [12] (4 goes to the double coset {12]). 
Nt,t3 € [13] (4 goes to the double coset {13]). 
Ntit4 € [13] (4 goes to the double coset [13]). 
Nt,t4 € [12] (4 goes back to the double coset [*]). 


——~ 


Word of length 2 
e Ntit2N is denoted by [12]. 


We note that N“@?) > N12 = 1. 
Now (2,7, 8, 9)(3, 10,5, 11)(4, 12, 13,6) € N“) 
Thus N“@?) >< (2,7,8,9)(3, 10,5, 11)(4, 12, 13,6) >, & Dis. 
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The number of right cosets in [12] is equal to Nosy = © = 60. 
The orbits of N“) on {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 

13, 14,15} is {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, 

{9}, {10}, {11}, {12}, {13}, {14}, {15}. 


We now take the representative 3 of the orbit {2}. 
and determine that Ntitotz = Nt, € [1]. So one tis take [12] to [1]. 


e Nt,t3N is denoted by [13). 


We have N@3) > NB = 1, 
Now (2,7,8,9)(3, 10,5, 11)(4, 12, 13,6) € N%. 
Thus NV“) > 
<(2,7,8,9)(3,10, 5, 11) (42125 13,6) > 
The number of right cosets in [13] is equal to 
Noy = & = 60. 
The orbit of N“) on {1,2,3,4,5,6, 7, 8,9, 10, 11, 12, 
13, 14, 15} is {1}, {2}, {3}, {4}, {5}, {6}, {7}, 
{8}, {9}, {10}, {11}, {12}, {13}, {14}, {15}. 
We now take the representative 3 of the orbit 
{1, 2, 3,4,5,6, 7,8, 9, 10, 11, 12, 13, 14, 15} 
and determine that Ntit3t3 = Nt, € [1]. So one tis take [13] to [1]. 


e Ntit,N is denoted by [14] 


We have N@4) > N= 1, 
Now (2,7, 8, 9)(3, 10,5, 11)(4, 12, 13,6) € N!). 
Thus N“4) >< (2,7, 8, 9)(3, 10,5, 11)(4, 12, 13,6) > 
We now take the representative 7 of the orbit 
{1,2,3,4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15} 
and determine that Ntit4t, = Nt, € [1]. So one tis take [14] to [1]. 
The number of right cosets in [14] is equal to Nosy = © = 60. The orbit of NV“) 
on {1, 2,3, 4, 5, 6, 7, 8,9, 10, 11, 
12,13,14,15} is {1} 42 48h fab {5} 46h. ft 7h, 
{8}, {9}, {10}, {11}, {12}, (13}, {14}, {15}. 
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Now, we can construct the Cayley diagram. Since the set of right cosets 
are closed under right multiplication by t? 
where i = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11, 12, 13, 14 , 15, we can determine the 
index of N in G. We conclude that 


IG| 2 | 2*15:(15:4) | 

= ! [ym Lea 1xt]® [x2 xt}4 22 xy-lxa lata —lxyxa2«tar—ley2xa—l xt, [rxtx 1xt]4 
iv, ini), imi, ist, IN, IM, iM, I 

|G| — (|| i IN@)| i! |N@2)| i |N(@3)| i |N@21)| i |N (G24) | i |N (28) | i |N(@29)| i |N@214)| 


[EN A oe, ST et NY a it ND 2 |N| | LN] | LN] | LN] 
|N(@31)| I |N (135) | I |N(@310)| I |N (216) | I | N (2414) | I |N(@2915)| I |N(@13111)| I | N (13511) | 


N 
wraascry)) X || 


—> |G| < (1+15+60+60+60+60+60+60+60-+15+60+5+60+60+15+5+15+1) x60 


— |G| < (672 x 60) 


— |G| < 40320 


[1310] 
1 


15 
{ 7 


135111] 


Figure 7.1: Cayley diagram of $7 over (15:4) 


7.2 Proof of G& S- 


> G<x,y,t>:=Group<x,y,tly°4,y°-1*x°-2*y*x"°-1,t°2, (t,y), 

> (y°-1l*x*-1l«t) 76, 

> (x°2*t)°4, x72 * y°-l * x°-1l * t * x*-1l * y * x72 * t * 
Koa] Bey 2 as ROS Te 

Pa Cn (>, ie a Tee Ce ca) 

> #G; 

40320 

> £,G1,k:=CosetAction(G, sub<G|x,y>); 

> CompositionFactors (Gl); 

G 


Cyclic (2) 


Alternating (8) 


> s:=IsIsomorphic(G1l,Sym(8)); 
> s;true 
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Chapter 8 


Unsuccessful Progenitors 


: Dy4 


e 9x18 


-10] do; 


[O. 
lxy)°2,x°14,t°2, 


for a,b,c,d,e,f,g,h,i,j,k,1,m,n,o in 


G<x,y,t>:=Group<x,y,tly°2, ( 


A 
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end for; 


end if; 


#G; 
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e gr 


for a,b,c,d,e,f,g,h,i,j,k,1,m,n,0,p,q,r,S,SS,U,V,W, 


LO] -do 
G<x,y,t>:=Group<x,y,tly°4,y°-1*x°-2*y*x°-1,t72, (t,y), 


[O. 


zin 


l*ex7-l«*t* (x*3))*b, 


)*c, (K*2*y7-1Lxx > -Leyxt) Wd, (x*3*y°-1*t) 7e, 


X*KY — 
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a,b,c,d,e,f,g,h,i,j,k,1,m,n,0,p,Q,",S,SS,U,V,W,Z, 


#G; 


end for; 
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Or OO O'S :@ :@ 
O71 Ol) 11> OOO. 
Orv O GO: :O: O:.@: 'O 
Ou 0 OO: :O Or ©: © 
OO Over S11 :Orr@ 
OO: O1- 0: OOo: OO. 'O 
OO: Orv. @O-C OO 
OO: -O -© -O Or] OO 
BLO (@ > + ©: Or © 
ONO OO. @: Or -Or°O 
OV Oy OS “OO: -O:-Or © 
OV OO. 2OvV@» Or: ©& 
O.- OO: @; -O>'O: ©. - OS 
Or OS OOO. Or Or 'O 
O- OOO -O: (OO: .O 
OOO SO: OOn-@ 
OO. CO%.0 -O:: Oy OO; OS 
OO SS (CO OS -O-O -O 
co CO CO COC @O @O CO © 
ee ee 
anannnan oo 
Or OOO“! ‘OO 
YUAN OB WBNEF CO 
DOONFRNEF CO 


O06 aN 


for a,b,c,d,e,f,g,h,i,j,k,1,m,n,0,p,g,r,SS,tT, uu, 
vV,wW, XX, YY, 2Z,aa,bb,cc,dd,ee, ff£,gg,hh,ii,j3j,kk,11 
,mm,nn,0o,pp, qq, rr, ss,tt, uu, vv, WW, XX, YY, ZZ, aaa, bbb, 
ccc, ddd, eee, f££,ggg,hhh,iii, jjj,kkk, 111,mmm,nnn,o0o 
o,ppp,qqgq, rrr, sss,ttt, uuu, vvv, WWW, XXX, YYY, ZZZ, aaaa, 
bbbb, cccc, dddd, eeee, FF ff, gggg, hhhh, i111, 33, kkkk, 
Lill,mmmm,nnnn,0oooo, pppp, qqqq, rrrr,ssss,tttt,uuuu 
in [0..10] do; 
G<x,Y,Z,W,V,U,S,t>:=Group<x, y, Z,W,V,u,S,t|x°2,y° 3, 


zZ°2,w 2,v4,uU°4,8° 2, (y°-1*x) “y*zxy°-Lew, X*Z*X*W, 
(z*w) “2,yxv>-ley*-l*xu°-1,x*v>-lLexxu, ZV -1*ZKkV, 


(wxv°-1)72,v°u°-lav > 2*u°-1,V>-lLeu*-lLeveu*-1l,wez«y” 


—lxezxy,u°-lxev>-lLey>-lav > -ley,t°2, (tt, x*Zz*w (zt? (y 
“2))"*b, (z*t*x) “ec, (z* (C7 (y*v)) 72) 7d, (z*t* ((x*v) 72)) 
“e, (zxuxt) “£, (zxurt® ((y*v) ~5)) 7g, (zeuxt® (y*v)) 7h, 
(zxuxet y) “i, (z*euxt® ((k*z)72)) 75, 
(zxuxt® (y°2)) 7k, (x*t) 71, (x*t*z) “m, (x*xt* ((x*v) 72) ) 
“n, (x* (C7 ((x*v) 76) ) 7 (z°-1)) 70, (x*t*y) “py, (x*t? ((xx*t 
“v) 74, (X* (C7 ((X*V) 72)) 7 y) OSS, (x*xt7? (yev)) TUT, (xet 
“(Z*v)) “UU, (x* ((t* ((x*v) 72) ) Ty) * (y*-2) ) Ov, (xat 
~((y*v) *2)) “wW, (x* (t*v) “y) “xX, (x* (t* (y*v)) “y) “yY, 
(y*xt) “2Z, (y*xt* ((x*z)°2)) "aa, (y*t*z) “bb, (y*xt? (x*z*s) 
)* ec, (yet? v) “dd, (y*xt* ((x*zev (y*xt® ((x*z*«v)°3))°ff, 
(y*xt* (y*v)) “gg, (y*t* ((x*v) “5)) “hh, (y* (t* ((x*v) 76) ) 
~((x*Z) > (yet? (Zev) ) “39, (y* (07> ((x*v) 72) ) Ty) * (y*-2)) 
“kk, (y*xt* (x*v) 73) 711, (y*xt? (x*z*v) 75) (y*t? ((x*zeVv) 73 
)) “££, (y*t* (y*v)) “gg, (y*t* ((x*v) *5)) “hh, (y* (t* ((x«v) 
~6))* ((x*Zz)* (yet? (Zev) ) 739, (ye ( (07 ((xev) 72)) *y) * Cy 
“-2)) "kk, (y*t? (x*v) 73) 711, (y*xt? (x*z*v) 75) (y* (t7 ( (xx 


z*xv)°2))* (z*-1))°nn, (yx (t* (y*v))°z)*oo, (v*t) “pp, (v* 
(t*y) ~x) “qq, (vet? (x*«v)) “rr, (z*vet) *ss, (Zev ( (C7 ( (x* 
v)°2))7*y)* ((x*z) 7-3) ) “tt, (z*vet* (x*«v)) Muu, (x*z*t) 7v 
vy, (X*zZ* (C7 (y°2)) *x) Cww, (x*zZ*t y) 7xx, (K*zZ*toV) Wyy, 
(x*Z* (C7 (y*xv))°z) zz, (x*z*t* ((y*v) 74) ) “aaa, (x* 
Z*S*t) “bbb, (x*z*sx* (t* (y72))°x) “ccoc, (x*z*sxt*y) “ddd, 
(X*Z*S*t*v) “eee, (K*zZ*S* (C7 (y*xv)) °z) “£Ff, (x*zxsx*t7 (y 
*v)) “ggg, (y*xvet) “hhh, (y*v«t? ((x*u) 75)) “iii, (y*vet 
“((x*zZ*V)73)) 7455, (yevaety) “kkk, (yevet? ((x*z)72)) 
“111, (y*vet* (z*v)) “mmm, (y*vet*z) “nnn, (y*v«et* ((y) 72)) 
“ooo, (yxvx«xt* ((x*v) 73)) “ppp, (y*vet* (x*z*S)) “qqq, (y*v 
*t* ((x*zZ*vV)°5)) 7 rrr, (yev* (C7 (K*Z* (yave (C7 (V)) Ty) MEL 
r (yevrd 
(yxvex (1 
t* ((y*v) 74) ) “yyy, (x*vx ( (0° (x*Z*S)) “y) > (x*xz*v))°22z, 
(X*xVet y) “a (x*Vet? ((X*Z)72)) “bbbb, (x*«vx (t* (z*u)) “y) 
“cecc, (X*v*t*z) “dddd, (x*xv*et”* (y*2)) “eeee, (Keve (C7 (y*2 


* ((x*zZ*V) 76) ) “uuu, (y*vx (t* ((x*v) 72) * (z))) Ovvv, 


t~ ((x*Z*vV)72))7 (z7-1)) “www, (x*xv«*t) “xxx, (X*V* 


a 


))*x) °£ELE, (x*evet* (x*z*s)) “gggg, (x*v« (t* (y*v) ) ~z) 


“hhhh, (x*vx* (t* ((x*z*v)°5)) 7 y) “iii, (x*z*v«et) “3544, 


“x) “kkkk, (x*z*v«et™ ((y*v)72)) 71111, (x*«zxevet*y) “mmmm, 
(x*Z*VetE™ ((x*Z)°72)) “nnnn, (x*zx*vx* (C7 ((y*v) 75) ) 7x) 70000 
, (X*¥Z*V*t°Z) “pppp, (x*z*vet* (y72)) “qqqq, (x*z*v« (t* (y 
“2))°x) “rrrr, (K*Z*V*t* (x*Z*S)) “SSSS, (X*Z*V«t* (y*V) ) 
“tttt, (k*z*vx* (t* (x*z*S)) “y) “uuuu>;a,b,c,d,e,f,g,h,i, 
3,k,1,m,n,0,p,qg,r,sS,tT,uu,vV,wW, xX, yY,2Z,aa,bb,cc, dd, 
ee, ff£,gg,hh,i1,jj3,kk,11,mm,nn,0oo, pp, qq, rr,ss,tt,uu, vv 
,WW,XX, YY, ZZ,aaa, bbb, ccc, ddd, eee, f££,ggg,hhh,iii,jjj, 


kkk, Lll,mmm,nnn,0ooo, ppp, qqgq, rrr, sss, ttt, uuu, Vvv, www, 
XXX, VYY, ZZZ,aaaa, bbbb, cccc, dddd, eeee, ££ ££, gggg,hhhh, 
1111, 33,kkkk,1111,mmmm,nnnn,0ooo, pppp, qqqg, rrrr,Ssss, 
tttt, uuuu, 

#G; end for; 
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e oe : Dog 
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.10] 
Ixy) °2,x°14,t°2, 


[O. 


for a,b,c,d,e,f,g,h,i,j,k,1l,m,n,o in 


G<x,y,t>:=Group<x,y,tly°2, ( 
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end for; 


end if; 


#G; 
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Appendix A 


Magma Work for 2°: (5: 4) 


S:=Sym(5); 
xx:=S!(1,2,4,5,3); 
yy:=S! (2,4,3,5); 
N:=subS$<S|xx,yy >$; 
Stabiliser (N,1); 
#N; 


G<x,y,t>S:= Group $ <x,y,1 
t°2(try), (x {-2} xy {-2} x1 
(x7 2x*t) 75> 
£,G1,k:=CosetAction (G, sub<G|x,y> ); 
IN:=sub<G1|f(x),f(y) >; 
CompositionFactors (Gl); 
#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>); 
DoubleCosets (G,sub<G|x,y> ,Sub<G|x,y>); 


Ix°5,y°4,y{-l} *x* {-2}*y*x*{-l}, 
“{x73})°4, (y7* {-1} *x* {-l} *t) 78, 


NN<a,b> := Group<a,b|a~5,b°4,b° {-l}*«a° {-2}«*bxa*{-l}>; 
Sch := SchreierSystem (NN, sub<NN|Id(NN) >); 
ArrayP:=[Id(N): i in [1 .. 20]]; 

for 1 in [2 ;:. 20] do 

P :=[Id(N): 1 in [1 .. #Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq (Sch[i]) [J] eq 1 then P[j]:=xx; end if; 

if Eltseq (Sch[i]) [3] eq -1 then P[j]:=xx*{-1}; end if; 
if Eltseq (Sch[1i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq (Sch[i])[j] eq -2 then P[j]:=yy°{-1}; end if; 
end for; 

PP:=Id(N); 


for k in [1 .. #P] do 


PP:=PP*P[k]; end for; 

ArrayP[i]:=PP; 

end for; 

for iin [1 .. 20] do if ArrayP[i] eq N! (2,4,3,5) 
then Sch[i]; 

end if; end for; 

prodim := function(pt, Q, I) 

/x Return the image of pt under permutations Q[i] 
applied sequentially. x*/ 

Vi=pt; 

fOr L in T..do 

vi=Sv°{Q[i]}$; 

end for; 


return v; 
end function; 


ts := [ Id(Gl): i in [1 .. 5] ]; 
ts[l]:=f£(t); ts[2]:=S£(t*x)S; ts[3]:=£5 (t*{x74})S$; 
ts[4]:=f(t°{x72}); ts[5]:=f(t* {x73}); 


/* This cst function will keep track of all single cosets */ 


cst:= [null : i in [1 .. Index(G,sub< G|z, y >)]] 
where null is [Integers() | ]; 

for i:= 1 to 5 do 

cst([prodim(1, ts, {i])]:=[i]; 

end for; 

m:=0; for iin [1 .. 16] do if cst|i] ne | | 


then m:=m-+1; end if; end for; m; 


N1:=Stabiliser(N,[1]); 
creep 

SS:=5*: 

55: 

ff SS; 
SSS:=Setseq(SS); 
SSS; 
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for iin [1 .. # SS] do 

for g in IN do 

if ts[1] eq 

g*ts[Rep(SSS[i])[1]] 

then print SSS|i]; 

end if; end for; end for; 
Nis:=N1; 

# Nis; 
T1:=Transversal(N,N1s); 

# T1; 

fori:= 1 to # T1 do 

SSS eu 

cst[prodim(1, ts, SS)] := SS; 
end for; 

m:=0; 

for iin [1 .. 16] do if csti] ne | |] 
then m:=m-+1; end if; end for; m; 
Orbits(N1s); 

# Nis; 


N12:=Stabiliser(N,[1,2]); 
S121: 

SS:=S%; 

So: 

it SS; 

SSS:=Setseq(SS); 

SSS; 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2] eq 


g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i)) [2]] 


then print SSS|ij; 
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end if; end for; end for; 
N12s:=N12; 

# N12s; 
T12:=Transversal(N,N12s); 
= oa Ba 

for i := 1 to #T12 do 

Seve iieoeet 
cst[prodim(1, ts, SS)] := SS; 


end for; 

m:=0; 

for iin [1 .. 16] do if cst|i] ne | | 
then m:=m+1; 


end if; end for; m; 
Orbits(N12s); 
for m,n in IN do if ts[1]*ts|[2] eq m * (ts[1])” 


then m,n; end if; end for; 


N123:=Stabiliser(N,|1,2,3]); 

S:=[1,2,3]; 

SS:=S%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[3] eq 
g*ts[Rep(SSS[i])[1]] *ts[Rep(SSSfi])[2]]*ts[Rep(SSS|i]) [3] 
then print SSS|ij; 

end if; end for; end for; 

N123s:=N123; 

for g in N do if 19 eq 1 and 29 eq 3 and 39 eq 2 
then N123s:=sub< N|N123s, g >; end if; end for; 
# N123s; 

T123:=Transversal(N,N123s); 
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ae 123: 

for i1= 1 to #1123 do 

SG gio ae 

cst[prodim(1, ts, 5S)] := SS; 

end for; 

m:=0; 

for i in [1 .. 16] do if cst]i] ne | 

then m:=m-+1; end if; end for; m; 

Orbits(N123s); 

for m,n in IN do if ts[1]*ts[2]*ts[3] eq m * (ts[1] * ts[2])” 


then m,n; end if; end for; 


N125:=Stabiliser(N,[1,2,5]); 
S:=|152,5]) 

SS:=S%; 

SSS:=Setseq(SS); 

for i in [1.455] do 

for g in IN do if ts[1]*ts[2|*ts[5] eq 
g*ts[Rep(SSSIi])[1]]*ts[Rep(SSS[i]) [2]]*ts[Rep(SSS[i)) [3] 
then print SSS|ij; 

end if; end for; end for; 
N125s:=N125; 

# N125s; 
T125:=Transversal(N,N125s); 
#1125: 

for i:= 1 to # T125 do 

So | 

cst[prodim(1, ts, SS)] := SS; 

end for; 

m:=0; 


for iin [1 .. 16] do if cst{i] ne [| ] then m:=m+1,; 
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end if; end for; m; 
Orbits(N125s); 


/* To print all single cosets */ 


for i in [1 .. 10] do i, est|i]; end for; 
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Appendix B 
Magma Work for 57 


S:=Sym(15); 
xx:=$I(1, 2, 6, 3, 8, 14, 10, 7, 12, 11, 15, 13, 5, 9, 4): 

yy:=8!(2, 7, 8, 9)(3, 10, 5, 11)(4, 12, 13, 6): 

N:=sub< S|xx, yy >; 

# N; 

G< a,y,t > := Group < 2, y,ty4,y +27 «yer 1, (ty), (yea) *t), (2? * 
De ey a ee a ee a a a ee ee 
f,G1,k:=CosetAction(G,sub< Gx, y >); 

IN:=sub< G1| f(x), f(y) > 

CompositionFactors(G1); 

NN< a, b >:=Group< a, b|b*,0-1 a7? * bx a! >; 
Sch:=SchreierSystem(NN,sub< NN|Id(NN) >); 

ArrayP:=[Id(N): i in [1 .. 60]]; 

for i in [2 .. 60] do 

P:=[Id(N): 1 in [1..4 Schli]]]; 

for j in [1 .. # Sch[i]] do 

if Eltseq(Sch{i] 
if Eltseq(Sch{i 
if Eltseq(Sch{i 
if Eltseq(Sch{i 


)[j] eq 1 then P[j]:=xx; end if; 
){j] eq —1 then P[j]:=r2~'; end if; 
)Ij] eq 2 then P[j]:=yy; end if; 
)fj] eq —2 then P[j]:=yy7'; end if; 


1 
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end for; 

PPS ld}: 

for k in [1 .. # P] do 

PP:=PP*P{k]; end for; 

ArrayP|i]:=PP; 

end for; 

for i in [1..60] do if ArrayP{i] 

eq N!(2, 7, 8, 9)(3, 10, 5, 11)(4, 12, 13, 6) 
then Schlij; 

end if; end for; 

prodim := function(pt, Q, I) 

vi=pt; 

for iin I do 

vay Ol), 
end for; 

return V; 

end function; 

tec= | ‘Id(G1)s iin |1.,.15) |; 

ts[1]:=f(t); ts[2]:=f(t"); ts[3]:=f(¢*"); 
ts[4]:=f(t"""); ts[5]:=f(t""’); 

ts[6]: ts[7]:=f(t""); 

ts[8]: ; ts[9]:=£(t"”); 

ts[10]:=f(t°); ts[11]:=f(¢"); 
ts[12]:—f(t*");ts[13]:—f(t""); 

ts[14]:=f(t®"); ts[15]:=f(4"’); 

est:=[null : i in [1 .. Index(G,sub< Gz, y >)]] 


where null is [Integers( ) | ]; 

for i := 1 to 15 do 

cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; for i in [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
# DoubleCosets(G,sub< G|z,y >,sub< G|zx,y >); 


N1:=Stabiliser(N,1); 

S= (1; 

SS 5%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1] 

eq g*ts[Rep(SSS[i)[1]] 

then print SSS{iJ; 

end if; end for; end for; 
Nis:=N1; 

# Nis; 

T1:=Transversal(N,N1s); 

# T1; 

for i:=1 to 15 do 

cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1s); 


N114:=Stabiliser(N,[1,14]); 

S:=[1,14]; 

SS:=5*. 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[14] 

eq g*ts[Rep(SSS[i))[1]}*ts[Rep(SSS[i]) [2] 
then print SSS{i]; 
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end if; end for; end for; 
N114s:=N114; 

# N114s; 
T114:=Transversal(N,N114s); 

# T114; 

fori t= 1 tools do 

cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N114s); 


N115:=Stabiliser(N,[1,15]); 
S:=[1,15]; 

SS:=5%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[15) 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
then print SSS{i]; 

end if; end for; end for; 
N115s:=N115; 

# N115s; 
T115:=Transversal(N,N115s); 
a ELL 

for i := 1 to # T115 do 

ss2= [a5 
cst[prodim(1, ts, ss)] := ss; 
end for; 


m:=0; 
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for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N115s); 


N12:=Stabiliser(N,[1,2]); 

S| Lok 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
then print SSS{iJ; 

end if; end for; end for; 
N12s:=N12; 

# N12s; 
T12:=Transversal(N,N12s); 

ae 12? 

Orbits(N12s); 

fori t= d-tors “T12 do 

sa 2 [1 OEE, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 


N13:=Stabiliser(N,|1,3]); 
S| Lak 

SS:=S; 
SSS:=Setseq(SS); 

for i in [1 .. # SS] do 


for g in IN do if ts[1]*ts[3} 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]] 
then print SSS{iJ; 

end if; end for; end for; 
N13s:=N13; 

# N13s; 
T13:=Transversal(N,N13s); 
ale: 

for i= tose 1 13-do 

soe= ugk 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 ..672] do if cst[i] ne [| | 
then m:=m-+1; end if; end for; m; 
Orbits(N13s); 


N14:=Stabiliser(N,[1,4]); 

S=|LAl: 

Ss": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do for g in IN do if ts[1]*ts|4] 
eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
then print SSS{iJ; 

end if; end for; end for; 

N14s:=N14; 

# N14s; 

T14:=Transversal(N,N14s); 

LA 

for 12 Ieto.4e T14.do 


does" ae aae 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N14s); 


N121:=Stabiliser(N,[1,2,1]); 

SS 2h 

S5:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS i] ) [3] 
then print SSS{i]; 

end if; end for; end for; 
N121s:=N121: 

# N121s: 
T121:=Transversal(N,N121s); 
#7121: 

fora = hte # TE121,de 

sat (2, 1) 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121s); 


N123:=Stabiliser(N,[1,2,3]); 
S| 12.3) 
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SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[3] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] ) [3] 
then print SSS{i]; 

end if; end for; end for; 
N123s:=N123; 

# N123s; 
T123:=Transversal(N,N123s); 

a F123: 

fori = 1 to.46 T123-do 

go (1,2 3)ee), 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N123s); 


N124:=Stabiliser(N,[1,2,4]); 
p= 124 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts|4] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{i]; 

end if; end for; end for; 
N124s:=N124; 

4 N124s: 
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T124:=Transversal(N,N124s); 

# T124; 

foric= Lito #1124 do 

seo [1D ee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124s); 


N125:=Stabiliser(N,[1,2,5]); 
Si=(152,5/: 

gs=5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[5] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS i] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N125s:=N125; 

# N125s; 
T125:=Transversal(N,N125s); 

# T125; 

for i:= 1 to # T125 do 

se [125i 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N125s); 


N126:=Stabiliser(N,|1,2,6]); 
5:=(152,6); 

So: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[6] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N126s:=N126; 

# N126s; 
T126:=Transversal(N,N126s); 

er E26: 

fori := 1 to T126-do 

s93= (2) 0 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N126s); 


N127:=Stabiliser(N,|1,2,7]); 

= |122ch 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[7] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
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then print SSS{iJ; 

end if; end for; end for; 
N127s:=N127; 

# N127s; 
T127:=Transversal(N,N127s); 
ae T1272 

forit= 1 to # T127 do 

Ss eet ead add 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 

for i in [1..672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N127s); 


N128:=Stabiliser(N,|1,2,8]); 
p= |12. 8) 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8} 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]))[2]]*ts[Rep(SSSfi)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N128s:=N128; 

# N128s; 
T128:=Transversal(N,N128s); 
a 128? 

for i:= 1 to # T128 do 

Sous 12, 3) eee 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N128s); 


N129:=Stabiliser(N,|1,2,9]); 

B= | 1,20) 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS |i] ) [3] 
then print SSS{i]; 

end if; end for; end for; 

N129s:=N129; 

# N129s; 
T129:=Transversal(N,N129s); 

# T129; 

for i := 1 to # T129 do 

sea= (12,0), 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0;for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N129s); 


N1210:=Stabiliser(N,[1,2,10}); 
S152 10); 

SS:=5": 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[10] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N1210s:=N1210; 

# N1210s; 
T1210:=Transversal(N,N1210s); 
4 T1210: 

for =") tose TA Odo 
se 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1210s); 


N1211:=Stabiliser(N,[1,2,11]); 

Sp Poet 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[11] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSf[i] )[3]] 
then print SSS{i]; 

end if; end for; end for; 
N1211s:=N1211; 

# N1211s; 
T1211:=Transversal(N,N1211s); 
# T1211: 
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for 1 ?= 1 to-# T1211:do 

gee (102- 11) 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1211s); 


N1212:=Stabiliser(N,[1,2,12]); 

5 =[152,12): 

SS:=S%; SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[12] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2] *ts[Rep(SSSfi] [3] 
then print SSS{iJ; 

end if; end for; end for; 
N1212s:=N1212; 

# N1212s: 
T1212:=Transversal(N,N1212s); 
# T1212: 

for 1 :=-1 to # T1212 do 

se Loe 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1212s); 


N1213:=Stabiliser(N,[1,2,13]); 


S25 13]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[13] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS i] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N1213s:=N1213; 

# N1213s: 
T1213:=Transversal(N,N1213s); 
# T1213: 

for.12= 1 to-4 T1213-do 

se |. 21a) eel, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1213s); 


N1214:=Stabiliser(N,[1,2,14]); 

pH 214 

So.= 5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
then print SSS{iJ; 

end if; end for; end for; 

N1214s:=N1214: 
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# N1214s: 
T1214:=Transversal(N,N1214s); 
# T1214: 

for’ = Lto # TFI214 do 

see= [1.2 later 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1214s); 


N1215:=Stabiliser(N,[1,2,15]); 
S:=([1,2,15]; 

So: 5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[15] 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i]) [3]] 


then print SSS{iJ; 

end if; end for; end for; 
N1215s:=N1215; 

# N1215s; 
T1215:=Transversal(N,N1215s); 
4 T1215: 

forc="h tog £1216 
S5c= [1D alt ter 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 


for iin [1 .. 672] do if cst[i] ne [ | 
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then m:=m-+1; end if; end for; m; 
Orbits(N1215s); 


N131:=Stabiliser(N,|1,3,1]); 
S:=[1,3,1]; 

SS 5%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSi]) [3] 
then print SSS{i]; 

end if; end for; end for; 
N131s:=N131; 

# N131s; 
T131:=Transversal(N,N131s); 

# T131; 

foris= 1: tow Fis) do 
ssa. ee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N131s); 
N132:=Stabiliser(N,|1,3,2]); 

SS )/13.2 SS 8: 
SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[2] 
eq g*ts[Rep(SSSI[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{i]; 
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end if; end for; end for; 
N132s:=N132: 

# N132s; 
T132:=Transversal(N,N132s); 

# T132; 

fori = 1 to 4 ‘T132:do 

lee ae el ec 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
thenm:=m-+1; end if; end for; m; 
Orbits(N132s); 


N134:=Stabiliser(N,|1,3,4]); 
S:=[1,3,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts|4] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N134s:=N134; 

# N134s; 
T134:=Transversal(N,N134s); 
# T134; 
T134:=Transversal(N,N134s); 
for i:= 1 to # T134 do 

soa [1,34] er 


cst[prodim(1, ts, ss)| := ss; 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N134s); 


N135:=Stabiliser(N,|1,3,5]); 
S:=[1,3,5]; 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N135s:=N135; 

4 N135s; 
T135:=Transversal(N,N135s); 

# T135: 

for i = 1.t0 441135 do 

g6 2= [13,5] nl 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N135s); 
N136:=Stabiliser(N,|1,3,6]); 
S:=[1,3,6]: 

SS:=5%: 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts|6] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N136s:=N136; 

4+ N136s; 
T136:=Transversal(N,N136s); 

# T136: 

for i := 1 to # T1386 do 

a6 = [1,362 eH 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N136s); 


N137:=Stabiliser(N,|1,3,7]); 
pais. ck 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[7] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{i]; 

end if; end for; end for; 
N137s:=N137; 

# N137s; 
T137:=Transversal(N,N137s); 
#1137; 


for i := 1 to # T1387 do 

seal ee aad eee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N137s); 


N138:=Stabiliser(N,|1,3,8]); 
S:=[1,3,8]; 

S539": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[8} 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i])[3]] 


then print SSS{iJ; 

end if; end for; end for; 

N138s:=N138; 

4. N138s; 
T138:=Transversal(N,N138s); 

4 T138: 

for i 1=1to # T138. do ss = [1,9; 8)? 80), 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 672] do if cst]i] ne [ | then 
m:=m-+1; end if; end for; m; 


Orbits(N138s); 


N139:=Stabiliser(N,|1,3,9]); 
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S:=[1,3,9]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[9] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N139s:=N139; 

4. N139s; 
T139:=Transversal(N,N139s); 

4. T139; 

for i := 1 to # T1389 do 

se 18,0) es 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N139s); 


N1310:=Stabiliser(N,[1,3,10}); 

S:=[1,3,10]: 

Soo)" 

SSS:=Setseq(SS); for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[10] 

eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSf[i] )[3]] 
then print SSS{i]; 

end if; end for; end for; 

N1310s:=N1310; 

4+ N1310s; 


T1310:=Transversal(N,N1310s); 
# T1310: 

fora =k tog £1310 do 

se8= La hoe 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1310s); 


N1311:=Stabiliser(N,[1,3,11]); 
S:=[1,3,1]]; 

gs=5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[11] 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i])[3]] 


then print SSS{i]; 

end if; end for; end for; 
N1311s:=N1311,; 

# N1311s; 
T1311:=Transversal(N,N1311s); 
# T1311. 

for =") toge EIS 1 do 

sox [La eee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N1311s); 


N1312:=Stabiliser(N,[1,3,12]); 
S:=[1,3,12]; 

SS:=5. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[12] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
then print SSS{iJ; 

end if; end for; end for; 
N1312s:=N1312; 

# N1312s; 
T1312:=Transversal(N,N1312s); 
# T1312: 

fort tose FIsl2 do 

ss = (1,3, 12]71312[i]; 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1312s); 


N1313:=Stabiliser(N,[1,3,13]); 

§:=[1,3,13]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[13] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 


125 


then print SSS{iJ; 

end if; end for; end for; 
N1313s:=N1313; 

+ N1313s; 
T1313:=Transversal(N,N1313s); 
4 T1313: 

fori := 1 to # T1313 do 

soc= | ala) ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1313s); 


N1314:=Stabiliser(N,[1,3,14]); 
S:=[1,3,14]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[14] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N1314s:=N1314: 

# N1314s: 
T1314:=Transversal(N,N1314s); 
# T1314: 

for i t= to? T1314 do 

soe '|1.a4) ee 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for i in [1 .. 672] do if cst[i] ne [ ] then 
m:=m-+1; end if; end for; m; 


Orbits(N1314s); 


N1315:=Stabiliser(N,[1,3,15]); 
§:=[1,3,15]; 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[15] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
then print SSS{iJ; 
N1315s:=N1315; 

# N1315s: 
T1315:=Transversal(N,N1315s); 
# T1315: 

for t= to? "V1315-do. 

so 2= [iodo 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1315s); 


5/1251: 
SS=5%: 
SSS:=Setseq(SS); 
for i in [1 .. # SS] do 
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for g in IN do if ts[1]*ts[2]*ts[1]*ts[2] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i])[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1212s:=N1212; 

# N1212s: 
T1212:=Transversal(N,N1212s); 

# T1212: 

fori =) Lo Se 1 1212 do 

a6 = [15270 Di eeel 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1212s); 


N1213:=Stabiliser(N,[1,2,1,3]); 

pS {1.2413} 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[3] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSSi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1213s:=N1213; 

# N1213s: 
T1213:=Transversal(N,N1213s); 
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# T1213: 

for i:= 1 to # T1213 do 

se | oe eee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1213s); 


N1214:=Stabiliser(N,[1,2,1,4]); 

Si= (214): 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[4] 
eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i])[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N1214s:=N1214: 

# N1214s: 
T1214:=Transversal(N,N1214s); 

#4 T1214: 

for i:= 1 to # T1214 do 

ea ee ee le 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N1214s); 


N1215:=Stabiliser(N,[1,2,1,5]); 
5=(1,2;1L.0|: 

So: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[5] 
eq g*ts[Rep(SSSf[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1215s:=N1215; 

# N1215s: 
T1215:=Transversal(N,N1215s); 

# T1215: 

fort Lios- T2156 do 

so i= Ll Bi eek 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 672] do if cst{i] ne | ] 
then m:=m-+1; end if; end for; m; 
Orbits(N1215s); 


N1216:=Stabiliser(N,/1,2,1,6]); 
S=|1,2,1:6); 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6] 
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eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1216s:=N1216; 

# N1216s; 
T1216:=Transversal(N,N1216s); 

# T1216: 

tories 1 2 todo 

sa [1 2ye) eek 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1216s); 


N1217:=Stabiliser(N,[1,2,1,7]); 

op eld 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1..#4 SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[7] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSSi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1217s:=N1217; 

# N1217s: 
T1217:=Transversal(N,N1217s); 

4 T1217: 
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for 1 ?= 1 to-# T1217 do 

SSS | ee 
cst[prodim(1, ts, ss)| := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1217s); 


N1218:=Stabiliser(N,[1,2,1,8]); 

5: = [152,18]; 

S§s:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[8] 
eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i))[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i])[4]] 
then print SSS{i]; 

end if; end for; end for; 
N1218s:=N1218; 

# N12188: 
T1218:=Transversal(N,N1218s); 

# T1218: 

fori to Fe £1218 do 

so | Poni e) tte), 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1218s); 
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N1219:=Stabiliser(N,[1,2,1,9]); 
S:=[1;2,1,9|: 

so-so" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[9] 
eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i])[2]] 
*ts[Rep(SSS|i})[3]]*ts[Rep(SSS[i] [4] 
then print SSS{i]; 

end if; end for; end for; 
N1219s:=N1219; 

# N1219s: 
T1219:=Transversal(N,N1219s); 

# T1219: 

fori t= Lito T1219 -do 

go= [1,041.0] eel, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1219s); 


N12110:=Stabiliser(N,[1,2,1,10]); 
S:=[1,2,1,10]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[10] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
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*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N12110s:=N12110; 

# N12110s; 
T12110:=Transversal(N,N12110s); 
# T12110: 

for 1 Al to 4 F 12T10 do 

so [1.2, 10) ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12110s); 


N12111:=Stabiliser(N,[1,2,1,11]): 
S| 2 heb} 

S85": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[11] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] 
*ts|Rep(SSS{i])[3]]*ts[Rep(SSS|i] ) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12111s:=N12111; 

# N12111s; 
T12111:=Transversal(N,N12111s); 
# T12111: 

for i= btose TT do 


en SS; 
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ser ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12111s); 


N12112:=Stabiliser(N,[1,2,1,12]); 
b= 12.12} 

SS:=3": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[12] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 

end if; end for; end for; 
N12112s:=N12112; 

# N12112s: 
T12112:=Transversal(N,N12112s); 
#712112: 

tor 1 tte se PI2112 do 

so [Lo to ee eee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12112s); 
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N12113:=Stabiliser(N,[1,2,1,13]); 
pile sb 

so:5 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[13] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSS[i])[3]]*ts[Rep(SSS[i]) [4] 
then print SSS{iJ; 


a) ees 


end if; end for; end for; 
N12113s:=N12113; 

# N12113s; 
T12113:=Transversal(N,N12113s); 
# T12113: 

fori = to ge E12 13 do 

ed any Peli ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12113s); 


N12114:=Stabiliser(N,[1,2,1,14]); 
S2=|1,251,14]: 

So:=5"- 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[14] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 


then print SSS{iJ; 

end if; end for; end for; 
N12114s:=N12114; 

# N12114s: 
T12114:=Transversal(N,N12114s); 
# T12114: 

forit=1 to 4 T12114 do 
sol 21 14 ae 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12114s); 


N12115:=Stabiliser(N,[1,2,1,15]): 
S| 12. 15k 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 


for g in IN do if ts[1]*ts[2]*ts[1]*ts[15] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
“ts[Rep(SSS[i]) [3]]"ts[Rep(SSS|i]) [4] 


then print SSS|i]; 

end if; end for; end for; 
N12115s:=N12115; 

# N12115s; 
T12115:=Transversal(N,N12115s); 
# T12115: 

for 1 to. T2115 do 

goes '| 1 Oe 5 ek 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12115s); 


N1241:=Stabiliser(N,[1,2,4,1]); 
5:=([1,2,4,1]; 

SS:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[1] 
eq g*ts[Rep(SSS|i])[1]] *ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1241s:=N1241: 

# N1241s: 
T1241:=Transversal(N,N1241s); 

# T1241: 

for i:= 1 to # T1241 do 

sie On a 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1241s); 


N1242:=Stabiliser(N,[1,2,4,2]); 
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SH L24ok 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[2] 
eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i])[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] ) [4] 
then print SSS{i]; 

end if; end for; end for; 
N1242s:—N1242: 

# N1242s; 
T1242:=Transversal(N,N1242s); 

# T1242: 

fori3=1 to # T1242. do 

seu= [1 o.4 OEE: 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1242s); 


N1243:=Stabiliser(N,[1,2,4,3]); 

5 =(1,2;4,3): 

So=5"" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/4]*ts[3] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSSi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 
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end if; end for; end for; 
N1243s:—N1243: 

# N1243s; 
T1243:=Transversal(N,N1243s); 
# T1243; 

fori 1 to 4 T1243 do 

S53 [1 243) eel: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1243s); 


N1245:=Stabiliser(N,[1,2,4,5]); 
S=|L2.4.5/ 

SS:=5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/4]*ts[5| 

eq g*ts[Rep(SSS|i])[1]] *ts[Rep(SSS[i] )[2]] 
*ts|Rep(SSS{i])[3]|*ts[Rep(SSS|ij ) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1245s:=N1245: 

# N1245s: 
T1245:=Transversal(N,N1245s); 
T1245; 

for i t= to.4? T1246-do 

Sa eee Sis ae 


= 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1245s); 


N1246:=Stabiliser(N,|1,2,4,6]); 
5:=(|1,2,4,6]; 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[6] 
eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i))[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i])[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1246s:=N1246: 

4 N1246s: 
T1246:=Transversal(N,N1246s); 

4 T1246: 

fora = to.47 11246: do 

82S [LA Gee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1246s); 


N1247:=Stabiliser(N,[1,2,4,7]); 
5:=(1,2,4,7 |; 
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SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/4]*ts[7] 

eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] ) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1247s:=N1247; 

4#:N1247s; 
T1247:=Transversal(N,N1247s); 

# T1247; 

fori 2= 1 to, T1247 do 

se Load tear, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 

then m:=m+1; end if; end for; m; Orbits(N1247s); 


N1248:=Stabiliser(N,[1,2,4,8]); 
S:=[1,2,4,8]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1..#4 SS] do 

for g in IN do if ts[1]*ts[2]*ts/4]*ts[8] 
eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1248s:—N1248: 


# N12485: 
T1248:=Transversal(N,N1248s); 
4 T1248: 

for i:= 1 to # T1248 do 

see= [1-3-4 oP eeu, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1248s); 


N1249:=Stabiliser(N,[1,2,4,9]); 
S:=[1,2,4,9]; 

So: 5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts/9] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts|[Rep(SSS{i])[3]|*ts[Rep(SSS|i]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N1249s:—N1249: 

4 N1249s: 
T1249:=Transversal(N,N1249s); 
4.71249: 

fori t= 1 to # T1249.do 

se7= [1,2,4,.9|7 eel, 


cst[prodim(1, ts, ss)] := ss; 


a), Ga 


end for; 


m:=0; 
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for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1249s); 


N12410:=Stabiliser(N,[1,2,4,10]); 
Si=|1,2.4,10}; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/4|*ts[10] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i])[3]|*ts[Rep(SSS]i] ) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12410s:=N12410; 

# N12410s; 
T12410:=Transversal(N,N12410s); 
4 T12410: 

fora t= to 1 12410:do 

s8 2/104 10) Pee, 


ar ese 


cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12410s); 


N12411:=Stabiliser(N,[1,2,4,11]); 
=| 12.411; 

SS:=5%: 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[11] 
eq g*ts[Rep(SSS[i))[1]}*ts[Rep(SSS[i]) [2] 
“ts[Rep(SSS[i])[3]]*ts[Rep(SSS|i]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12411s:=N12411,; 

# N12411s; 
T12411:=Transversal(N,N12411s); 

# T1241: 

for i2= 1 to T12411 do 

ead ae ae ec 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12411s); 


N12412:=Stabiliser(N,[1,2,4,12]); 

bis 1.2.4, 19) 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[12] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts|[Rep(SSS|i])[3]|*ts[Rep(SSS|i]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12412s:=N12412; 

# N12412s: 


| ee 
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T12412:=Transversal(N,N12412s); 
#112412: 

fori 2='1L to FP F12412. do 

areal lB | ea 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12412s); 


N12413:=Stabiliser(N,[1,2,4,13]); 
Si=|52,4)13} 

Ss=5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/4|*ts[13] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i])[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N12413s:=N12413; 

# N12413s: 
1T12413:=Transversal(N,N12413s); 
#12413: 

for i:= 1 to #T12413 do 

s6.1= [1 2.4. 13)P ee, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for iin [1 .. 672] do if cst{i] ne [ | 
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then m:=m-+1; end if; end for; m; 
Orbits(N12413s); 


12414:=Stabiliser(N,{1,2,4,14]); 
S:=[1,2,4,14]; 

SS 5%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSSfi] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i])[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N12414s:=N12414: 

4 N12414s: 
T12414:=Transversal(N,N12414s); 
4 T12414: 

for i:= 1 to # T12414 do 

s62= aoa eae, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin | 1 .. 672] do if cst[i] ne [| | 
then m:=m-+1; end if; end for; m; 
Orbits(N12414s); 


N12415:=Stabiliser(N,[1,2,4,15]); 
S:=|1,2.4 15); 

SS=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 
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for g in IN do if ts[1]*ts[2]*ts/4|*ts[15] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSS[i])[3]]*ts[Rep(SSS[i]) [4] 
then print SSS|[i]; 


es ee 


end if; end for; end for; 
N12415s:=N12415; 

# N12415s; 
T12415:=Transversal(N,N12415s); 
ae P124 15; 

fori. to se 12415. do 

a6 104 1G ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12415s); 


N1281:=Stabiliser(N,/1,2,8,1]); 

bi [1.2.8.1 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[1] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS|i]; 

end if; end for; end for; 
N1281s:=N1281; 

# N1281s: 
T1281:=Transversal(N,N1281s); 
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# T1281; 

for i:= 1 to # T1281 do 

se [19 8 ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1281s); 


N1282:=Stabiliser(N,|1,2,8,2]); 
S'=(152;8.2|: 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[2] 
eq g*ts[Rep(SSS|i})[1]*ts[Rep(SSS[i])[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] [4] 
then print SSS{i]; 

end if; end for; end for; 
N1282s:=N1282; 

# N1282s: 
T1282:=Transversal(N,N1282s); 

# T1282: 

for =") to ge 1 1282'-d6 

see [12 8, Oy teert 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N1282s); 


N1283:=Stabiliser(N,[1,2,8,3]); 
$:=[1,2,8,3]; 

SS: 5. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[3] 
eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSSi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1283s:=N1283; 

4 N1283s; 
T1283:=Transversal(N,N1283s); 

4. T1283: 

for i := 1 toy T1283 do 

so i= [128 3 ee, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1283s); 


N1284:=Stabiliser(N,/1,2,8,4]); 
S:=[1,2,8,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts/4] 
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eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1284s:—N1284: 

# N1284s; 
T1284:=Transversal(N,N1284s); 

# T1284: 

for i=l to 4 1 1284.do 

sgu= [12/8 4) ull, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1284s); 


N1285:=Stabiliser(N,/1,2,8,5]); 
S:=[1,2,8,5]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[5] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 

end if; end for; end for; 
N1285s:=N1285; 

4. N1285s: 
T1285:=Transversal(N,N1285s); 

4 T1285; 
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for i:= 1 to # T1285 do 

ge v1, 8: 5] er 
cst[prodim(1, ts, ss)| := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1285s); 


N1286:=Stabiliser(N,|1,2,8,6]); 
S:=[1,2,8,6]; 

§S:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[6] 
eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N1286s:=N1286; 

4. N1286s; 
T1286:=Transversal(N,N1286s); 

4. T1286: 

for i:= 1 to # T1286 do 

sox. [1,2,.8, 6] eu, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1286s); 
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N1287:=Stabiliser(N,[1,2,8,7]); 
5:=[1,2,8,7|: 

So-=5™. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[7] 
eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i])[2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1287s:=N1287; 

4# N1287s; 
T1287:=Transversal(N,N1287s); 

# T1287; 

fori = ltog T1287 do 

go= [12,8 7a eel: 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1287s); 


N1289:=Stabiliser(N,/1,2,8,9]); 
S:=[1,2,8,9]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[9] 

eq g*ts[Rep(SSSf[i])[1]]*ts[Rep(SSSIi]) [2]] 
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*ts[Rep(SSSi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1289s:=N1289; 

4 N1289s; 
T1289:=Transversal(N,N1289s); 
4. T1289: 

for i := 1 to # T1289 do 

Sa = [15 28 0) F Ror 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1289s); 


N12810:=Stabiliser(N,[1,2,8,10]); 
S:=[1,2,8,10]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[10] eq g*ts|[Rep(SSS|i])[1]]*ts[Rep(SSS|i] ) [2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 

end if; end for; end for; 
N12810s:=N12810; 

4. N12810s; 
T12810:=Transversal(N,N12810s); 
4. T12810: 

for i:= 1 to # T12810 do 
goe='|1,.2:8,. 10] er 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12810s); 


N12811:=Stabiliser(N,[1,2,8,11]); 
pe eee lb 

S5:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[11] 
eq g*ts[Rep(SSS|i])[1]] *ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12811s:=N12811; 

# N12811s: 
T12811:=Transversal(N,N12811s); 
# T12811: 

for 1 :=>1, to # T12811-do 

ge [isd 8 1a) eer 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12811s); 


N12812s:=N12812; 
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# N12812s: 
T12812:=Transversal(N,N12812s); 
# T12812: 

for = to 4 £1I2812.do 

see [10.812 el 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12812s); 


N12813:=Stabiliser(N,[1,2,8,13]); 
S:=[1,2,8,13]; 

So: 9" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/8]*ts[13] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
“ts[Rep(SSSIi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 

end if; end for; end for; 
N12813s:=N12813; 

4 N12813s; 
T12813:=Transversal(N,N12813s); 

4. 12813: 

fori t= 1 to ¢e T12813-do 

gor [12 BS eee, 

cst[prodim(1, ts, ss)] := ss; 

end for; 


m:=0; 
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for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12813s); 


N12814:=Stabiliser(N,[1,2,8,14]); 
S:=[1,2,8,14]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8]*ts[14] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i])[3]|*ts[Rep(SSS|i]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N12814s:=N12814; 

# N12814s: 
T12814:=Transversal(N,N12814s); 
# 112814: 

for = to "8123814 do 

a6 2 |1,.2,'8; 14) Pe 


ir ees 


cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12814s); 


N12815:=Stabiliser(N,[1,2,8,15]); 
S:=[1,2,8,15]: 

SS:=5": 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts/8]*ts[15] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
“ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N12815s:=N12815; 

4 N12815s; 
T12815:=Transversal(N,N12815s); 

4 T12815: 

for 12=1 tof T12815"do 

S51 2 lope: 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12815s); 


N1291:=Stabiliser(N,[1,2,9,1]); 

SiS |12,0:12 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[1] 
eq g*ts[Rep(S8Sfi)[]]*ts[Rep(SSS[i)) [2 
*ts[Rep(S8SIi))[3]]*ts[Rep(S8Shi)) 4] 
then print SSS{iJ; 

end if; end for; end for; 
N1291s:=N1291; 

4 N1291s: 
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T1291:=Transversal(N,N1291s); 
# T1291: 

fora ="1 to.4F £1291 do 

seo [e205 ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1291s); 


N1292:=Stabiliser(N,[1,2,9,2]); 
Si=[1,2,9:2 |: 

Ss=5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[2] 

eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts|Rep(SSS|i])[3]]*ts[Rep(SSS|i] ) [4] 
then print SSS|i]; 


a> es 


end if; end for; end for; 
N1292s:=N1292; 

# N1292s: 
T1292:=Transversal(N,N1292s); 
# T1292: 

for i:= 1 to # T1292 do 

a6. 1 [152,0.0)7 tl, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for iin [1 .. 672] do if cst{i] ne [ | 
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then m:=m-+1; end if; end for; m; 
Orbits(N1292s); 


N1293:=Stabiliser(N,[1,2,9,3]); 
§:=[1,2,9,3]; 

SS 5%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[3] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS|i])[2]] *ts[Rep(SSS[i] )[3]]*ts[Rep(SSS|i]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N1293s:=N1293; 

4. N1293s; 
T1293:=Transversal(N,N1293s); 
4. T1293: 

fori := 1toy T1293 do 

goi= | 12. 0.3/74e4Hl, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1293s); 


N1294:=Stabiliser(N,[1,2,9,4]); 
S:=[1,2,9,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts/4] 
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eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1294s:—N1294: 

# N1294s: 
T1294:=Transversal(N,N1294s); 

# T1294: 

fori.2="1 to 4 11294 do 

sav | 15-2; 0.4] Peet 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1294s); 


N1295:=Stabiliser(N,[1,2,9,5]); 
S:=[1,2,9,5]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[5] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSSi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N1295s:=N1295; 

4. N1295s; 
T1295:=Transversal(N,N1295s); 

4. T1295; 
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for i:= 1 to # T1295 do 

ge | 12,05) 422k). 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1295s); 


N1296:=Stabiliser(N,/1,2,9,6]); 
S:=[1,2,9,6]; 

§s:=8": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[6] 
eq g*ts[Rep(SSSf[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N1296s:=N1296; 

4. N1296s; 
T1296:=Transversal(N,N1296s); 

4. T1296: 

for i := 1 to #T1296 do 

so, |[1,2, 9,0), 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1296s); 
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N1297:=Stabiliser(N,[1,2,9,7]); 
S:=[1,2;9,7 |: 

So-=5™. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[7] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 

end if; end for; end for; 
N1297s:=N1297; 

# N1297s; 
T1297:=Transversal(N,N1297s); 

# T1297; 

for i := 1 to # T1297 do 

go= [120.7 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1297s); 


N1298:=Stabiliser(N,[1,2,9,8]); 

$:=[1,2,9,8]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[8] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSSIi])[3]]*ts[Rep(SSS[i]) [4]| 


then print SSS{iJ; 

end if; end for; end for; 
N1298s:=N1298; 

4. N1298s; 
T1298:=Transversal(N,N1298s); 
4. T1298: 

for i := 1 to # T1298 do 

Bei |12,.0, aie eer 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1298s); 


N12910:=Stabiliser(N,[1,2,9,10]); 
S:=[1,2,9,10]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 


for g in IN do if ts[1]*ts[2]*ts[9|*ts[10] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
“ts[Rep(SSS[i]) [3]]"ts[Rep(SSS|i]) [4] 


then print SSS|[i]; 

end if; end for; end for; 
N12910s:=N12910; 

# N12910s; 


T12910:=Transversal(N,N12910s); 


# T12910; 
for i:= 1 to # T12910 do 
so '[15:2, 9.10 er: 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12910s); 


N12911:=Stabiliser(N,[1,2,9,11)); 

=| 12.0.1; 

SS:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[11] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS[i]) [2] 
*ts[Rep(SSS{i]) [3]]*ts[Rep(SSS{i]) [4] 
then print SSS{iJ; 


a, et 


end if; end for; end for; 
N12911s:=N12911; 

# N12911s; 
T12911:=Transversal(N,N12911s); 
# T12911: 

for 17= 1 to 4 T12911:do 
p60. 0. Da) t en 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12911s); 


N12912:=Stabiliser(N, [1,2,9,12]); 
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S129 12): 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[12] 
eq g*ts[Rep(SSSf[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS|i]) [4] 
then print SSS|i]; 


| ete 


end if; end for; end for; 
N12912s:=N12912; 

# N12912s; 
T12912:=Transversal(N,N12912s); 
# T12912: 

fori a= t0 FP 12912 do 

gee = [129,0, 12) err, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12912s); 


N12913:=Stabiliser(N,[1,2,9,13]); 
§:=[1,2,9,13}; 

So=5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9|*ts[13] 
eq g*ts[Rep(SSS[i))[1]}*ts[Rep(SSS[i]) [2] 
“ts[Rep(SSS[i]) [3]]*ts[Rep(SSS|i]) [4] 
then print SSS{i]; 
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end if; end for; end for; 
N12913s:=N12913; 

# N12913s; 
T12913:=Transversal(N,N12913s); 
# T12913; 

fori to se P12913.-do 

So [12 0.13) ee, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12913s); 


N12914:=Stabiliser(N,[1,2,9,14]); 
S'=(1,2,9;14]; 

SS:=5*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9|*ts[14] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts[Rep(SSS|i))[3]]*ts[Rep(SSSIi]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12914s:=N12914; 

# N12914s: 
T12914:=Transversal(N,N12914s); 
#712914: 

for i t= to.) T12914 do 

set '| 12,014) eee 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12914s); 


N12915:=Stabiliser(N,[1,2,9,15]): 
S:=[1,2,9,15]; 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9|*ts[15] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]] 
*ts|[Rep(SSS|i])[3]]*ts[Rep(SSS|i]) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N12915s:=N12915; 

4 N12915s; 
T12915:=Transversal(N,N12915s); 
4.112915: 

fora = 1-to 'T12915 do 

pac 15). 0: 15 err 


cst[prodim(1, ts, ss)] := ss; 


ea? Ss 


end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12915s); 


N12141:=Stabiliser(N,[1,2,14,1]); 
p= 1,2,14,1k 
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SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[1] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i])[4]] 
then print SSS{iJ; 

end if; end for; end for; 
N12141s:=N12141; 

# N12141s: 
T12141:=Transversal(N,N12141s); 
#712141: 

for12= 1 to # T12141 do 

pe 120.) e eel 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12141s); 


N12142:=Stabiliser(N,[1,2,14,2]); 

SH (12,142): SSS. 
SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[2] 
eq g*ts[Rep(SSS|i]) [1]}*ts[Rep(SSS fi) )[2]] 
*ts[Rep(SSSl[i])[3]]*ts[Rep(SSSIi]) [4] 
then print SSS|ij; 

end if; end for; end for; 
N12142s:=N12142; 
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# N12142s: 
T12142:=Transversal(N,N12142s); 
#112142: 

for i:= 1 to #T12142 do 

see= [1,0 14, oe 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12142s); 


N12143:=Stabiliser(N,[1,2,14,3]); 
S:=[1,2,14,3]; 

So: 9" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[3] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
“ts[Rep(SSSIi])[3]]*ts[Rep(SSS[i] )[4]] 
then print SSS{i]; 

end if; end for; end for; 
N12143s:=N12143; 

# N12143s: 
T12143:=Transversal(N,N12143s); 
#712143: 

fori t= 1 to 4 T12143 do 

S57 1.14 oe 

cst[prodim(1, ts, ss)] := ss; 

end for; 


m:=0; 


170 


for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12148s); 


N12144:=Stabiliser(N,[1,2,14,4]); 
Si=(1,2,14 4]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[4] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSS|i])[3]]*ts[Rep(SSS[i])[4]] 
then print SSS{i]; 

end if; end for; end for; 
N12144s:=N12144: 

4 N12144s; 
T12144:=Transversal(N,N12144s); 
4 T12144: 

for i:= 1 to # T12144 do 

ss 210,14 Ae 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12144s); 


N12145:=Stabiliser(N,[1,2,14,5]); 
p= | 12,14 ;5|: 

SS:=5%: 

SSS:=Setseq(SS); 
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for i in [1 .. #55] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[5] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
“ts[Rep(SSS[i])[3]]*ts[Rep(SSS|i]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N12145s:=N12145; 

#N12145s:; 
T12145:=Transversal(N,N12145s); 

4 T12145: 

forit= 1 to. # T12145 do 

a6 =| 214 bP eee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12145): 


N12146:=Stabiliser(N,[1,2,14,6]); 

SiS 214.6): 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[6] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS[i])[4]] 

then print SSS{i]; 

end if; end for; end for; 
N12146s:=N12146; 

# N12146s; 
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T12146:=Transversal(N,N12146s); 
4 T12146: 

for i:= 1 to # T12146 do 

seo [123s beter 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12146s); 


N12147:=Stabiliser(N,[1,2,14,7]); 

pie | 12,14,713 

gs= 5" 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[2]*ts[14]*ts[7| 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS|i])| 
*ts[Rep(SSS|i]) [4]] 

then print SSS{iJ; 


2]]*ts[Rep(SSS|i])[3]] 


end if; end for; end for; 
N12147s:=N12147: 

# N12147s; 
T12147:=Transversal(N,N12147s); 
# T12147: 

for i:= 1 to #T12147 do 

p= | ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N12147s); 


N12148:=Stabiliser(N,[1,2,14,8]); 
S:=[1,2,14,8]; 

SS: 5%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[8] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i])[4]] 

then print SSS|i]; 

end if; end for; end for; 
N12148s:=N12148; 

4. N12148s; 
T12148:=Transversal(N,N12148s); 
4 T12148: 

fori. Ltose FI2143.do 

S33 1214 eee, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 672] do if cst{i] ne | ] 
then m:=m-+1; end if; end for; m; 
Orbits(N12148s); 


N12149:=Stabiliser(N,[1,2,14,9]); 
S:=|1,2,14,9]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[9] 
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eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS[i])[4]] 

then print SSS{i]; 

end if; end for; end for; 
N12149s:=N12149; 

# N12149s; 
T12149:=Transversal(N,N12149s); 
# T12149; 

for i2t="L to 4 112149 do 

sev= [12,14 0) ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12149s); 


N121410:=Stabiliser(N,[1,2,14,10]); 
S:=([1,2,14,10]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[10] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i])[4]] 

then print SSS{iJ; 

end if; end for; end for; 
N121410s:=N121410; 

# N121410s; 
T121410:=Transversal(N,N121410s); 
# T121410: 
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for i:= 1 to # T121410 do 

get | 1214, 1O)F eae 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121410s): 


N121411:=Stabiliser(N,[1,2,14,11]): 
S124 | 

S§s:=9": 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[2]*ts[14]*ts[11] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSS[i] )[3]] 
*ts[Rep(SSS|i]) [4]] 

then print SSS{i]; 

end if; end for; end for; 
N121411s:=N121411, 

#N121411s; 
T121411:=Transversal(N,N121411s); 
# T121411: 

for i:= 1 to # T121411 do 

soe [dO 4od | eee. 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 

then m:=m-+1; end if; end for; m; 
Orbits(N121411s); 
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N121412:=Stabiliser(N,[1,2,14,12]): 
Sa 142) 

so:5 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[12] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i]) [4]] 

then print SSS{iJ; 

end if; end for; end for; 
N121412s:=N121412; 

# N121412s; 
T121412:=Transversal(N,N121412s); 
4 T121412: 

for i:= 1 to # T121412 do 

és7= [Lea 1 
cst[prodim(1, ts, ss)| := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121412s); 


N121413:=Stabiliser(N,[1,2,14,13]); 

5=|1,2,14,13| 

Soo" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[13] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSS|i]) [4] 


then print SSS{iJ; 

end if; end for; end for; 
N121413s:=N121413; 

# N121413s: 
T121413:=Transversal(N,N121413s); 
# 1121413: 

forit=L to 4 1121413 do 

ser 1 2al4a i aa 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121413s); 


N121415:=Stabiliser(N,[1,2,14,15]); 
S'=|1,2.14, 15): 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[14]*ts[15] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i])[4]] 

then print SSS{iJ; 

end if; end for; end for; 
N121415s:=N121415; 

# N121415s; 
T121415:=Transversal(N,N121415s); 
# T121415: 

for i:= 1 to # T121415 do 

gov" 10. 44 lee, 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121415s); 


N1312:=Stabiliser(N,[1,3,1,2]); 
§:=[1,3,1,2]; 

S5:=5": 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[3]*ts[1]*ts[2] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i]) [4]] 

then print SSS{i]; 

end if; end for; end for; 
NI312s:=N1312; 

# N1312s: 
T1312:=Transversal(N,N1312s); 

# T1312: 

fora = tof "T1312 do. 

c= [h5, 1,27 0r" 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1312s); 


N1314:=Stabiliser(N,[1,3,1,4]); 
S:=[1,3,1,4]; 
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SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1]*ts[4] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
*ts[Rep(SSSIi]) [4]] 

then print SSS{i]; 

end if; end for; end for; 
N1314s:=N1314: 

# N1314s: 
T1314:=Transversal(N,N1314s); 

# T1314: 

for i:= 1 to # T1314 do 

p= bel, alae 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1314s); 


N1316:=Stabiliser(N,/1,3,1,6]); 

§:=[1,3,1,6]; 

S65". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1]*ts[6] 

eq g*ts[Rep(SSSI[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSSi]) [4] 

then print SSS{iJ; 


end if; end for; end for; 
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N1316s:=N1316; 

# N1316s: 
T1316:=Transversal(N,N1316s); 
+ T1316: 

for’ =k to 7 41316 do 

as 1= [1.8 16|2 eee! 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1316s); 


N1317:=Stabiliser(N,[1,3,1,7]); 
S=[Louls (|: 

55:5", 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1]*ts[7] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSSi]) [4] 

then print SSS{iJ; 

end if; end for; end for; 
N1317s:=N1317; 

#N1317s; 
T1317:=Transversal(N,N1317s); 

# T1317; 

fori =" to. 4 TISIiT-do 

ceca as 0 A caer 

cst[prodim(1, ts, ss)] := ss; 


end for; 
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m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1317s); 


N1318:=Stabiliser(N,/1,3,1,8]); 
S:=[1,3,1,8]: 

S5:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1]*ts[8] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i])[4]] 

then print SSS{iJ; 

end if; end for; end for; 
N1318s:=N1318; 

# N13185: 
T1318:=Transversal(N,N1318s); 
# T1318: 

for i := 1 to # T1318 do 

38 2='[1,3,1,8)) ol 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1318s); 


N13111:=Stabiliser(N,[1,3,1,11]); 
S:=[1,3,1,1]]; 
So": 
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SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[3]*ts[1]*ts[11] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]))[2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSS|i]) [4] 

then print SSS{iJ; 

end if; end for; end for; 
N13111s:=N13111, 

# N13111s; 
T13111:=Transversal(N,N13111s); 

# T13111: 

for i=) tose TIS do 

sok ee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 

then m:=m-+1; end if; end for; m; 
Orbits(N13111s); 


N1351:=Stabiliser(N,[1,3,5,1]); 
S:=[1,3,5,1); 

SS:=S; 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[3]*ts[5]*ts[1] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i]) [3] 
*ts[Rep(SSS|i]) [4] 

then print SSS{iJ; 

end if; end for; end for; 
N1351s:=N1351; 

4. N1351s: 
T1351:=Transversal(N,N1351s); 
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# T1351: 

for i:= 1 to # T1351 do 

Sei le a a 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1351s); 


N1352:=Stabiliser(N,[1,3,5,2]); 
§:=[1,3,5,2]; 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[2] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS |i] ) [3] 
*ts[Rep(SSS[i)]) [4]] 

then print SSS{i]; 

end if; end for; end for; 
N1352s:=N1352; 

4 N1352s; 
T1352:=Transversal(N,N1352s); 

# T1352: 

for i:= 1 to # T1352 do 

sie a iw ee le 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N1352s); 


N1353:=Stabiliser(N,[1,3,5,3)): 
S:=[1,3,5,3]: 

SS:=5. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[3] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSS[i])[4]] 

then print SSS{i]; 

end if; end for; end for; 
N1353s:=N1353; 

4 N1353s: 
T1353:=Transversal(N,N1353s); 
4 T1353: 

fori ltos Ti3o3'do 

ss i= | L3,oca tte: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1353s); 


N1354:=Stabiliser(N,[1,3,5,4]); 
S:=(1,3,5,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts/[4] 
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eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS[i])[4]] 

then print SSS{iJ; 

end if; end for; end for; 
N1354s:=N1354: 

# N1354s; 
T1354:=Transversal(N,N1354s); 
# T1354; 

for i:= 1 to # T1354 do 

se 13 54 ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin | 1 .. 672] do if cst[i] ne [| | 
then m:=m-+1; end if; end for; m; 
Orbits(N1354s); 


N1356:=Stabiliser(N,[1,3,5,6]): 
S:=[1,3,5,6]; 

Ss:9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[6] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSS|i]) [4] 

then print SSS{iJ; 

end if; end for; end for; 
N1356s:=N1356; 

4. N1356s; 
T1356:=Transversal(N,N1356s); 

# T1356: 


186 


for i := 1 to # T1356 do 

ge v=| 1,8, 5;6)0 ork 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1356s); 


N1357:=Stabiliser(N,[1,3,5,7]); 
§:=[1,3,5,7]; 

SS:S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[7| 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS i] ) [3] 
*ts[Rep(SSS[i]) [4]] 

then print SSS{iJ; 

end if; end for; end for; 
N1357s:=N1357; 

4. N1357s: 
T1357:=Transversal(N,N1357s); 
4 T1357: 

for i:= 1 to # T1357 do 

so [1 3) 5) 77 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1357s); 
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N1358:=Stabiliser(N,[1,3,5,8)); 
S:=[1,3,5,8]: 

So-=5™. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[8] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSS[i] )[3]] 
*ts[Rep(SSS|i]) [4]] 

then print SSS{i]; 

end if; end for; end for; 
N1358s:=N1358; 

4 N1358s: 
T1358:=Transversal(N,N1358s); 
4 T1358: 

for i := 1 to # T1358 do 

go3= [13,028)7 el; 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1358s); 


N1359:=Stabiliser(N,[1,3,5,9]): 

S:=[1,3,5,9]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[9] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 


*ts[Rep(SSS|i]) [4] 

then print SSS{iJ; 

end if; end for; end for; 
N1359s:=N1359; 

4 N1359s; 
T1359:=Transversal(N,N1359s); 
# T1359; 

for i := 1 to # T1359 do 

sai 18, 520] eel 
cst[prodim(1, ts, ss)| := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1359s); 


N13510:=Stabiliser(N,[1,3,5,10]); 
§:=[1,3,5,10]; 

SS:=S; 

SSS:=Setseq(SS); for iin [1 .. #SS] do 
for g in IN do if ts[1]*ts[3]*ts[5|*ts[10] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS Ii] ) [3] 
*ts[Rep(SSS[i]) [4]] 

then print SSS{iJ; 

end if; end for; end for; 
N13510s:=N13510; 

4+ N13510s; 
T13510:=Transversal(N,N13510s); 

4. T13510: 

for i := 1 to # T13510 do 

recall Pes aera) eee 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13510s); 


N13511:=Stabiliser(N,[1,3,5,11]); 
§:=[1,3,5,11]; 

SS:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5|*ts[11] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i] [2] *ts[Rep(SSSfi] ) [3] 
*ts[Rep(SSS|i]) [4]] 

then print SSS{iJ; 

end if; end for; end for; 
N13511s:=N13511; 

4+ N13511s; 
1T13511:=Transversal(N,N13511s); 
# T13511: 

for 1.37=-1.to- 4 T13511 do 

Sea bees sea eee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13511s); 


N13512:=Stabiliser(N, [1,3,5,12]); 
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§:=[1,3,5,12]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5|*ts[12] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS[i])[4]] 

then print SSS{iJ; 

end if; end for; end for; 
N13512s:=N13512; 

4+ N13512s; 
1T13512:=Transversal(N,N13512s); 
# 113512: 

fori.<= to Ff 113512 do 

so3 = [1,.3;5,.12)7 77. 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13512s); 


N13513:=Stabiliser(N,[1,3,5,13]); 

$:=[1,3,5,13]: 

SS:=5"- 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[13] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSSi]) [4] 

then print SSS{i]; 
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end if; end for; end for; 
N13513s:=N13513; 

# N13513s; 
1T13513:=Transversal(N,N13513s); 
fe 13513; 

fori to se PF 13ol3-do 

és3= [1.3,5,13|F eee, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13513s); 


N13514:=Stabiliser(N,[1,3,5,14]); 
§:=[1,3,5,14]; 

SS:=s"; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5|*ts[14] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]))[2]]*ts[Rep(SSS|i]) [3] 
*ts[Rep(SSS[i])[4]] 

then print SSS{iJ; 

end if; end for; end for; 
N13514s:=N13514; 

# N13514s; 
T13514:=Transversal(N,N13514s); 

# 713514: 

for i:= 1 to # T13514 do 

soe" | 1,355,142 eae 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13514s); 


N13515:=Stabiliser(N,[1,3,5,15]); 
S:=[1,3,5,15]: 

So:=5": 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[3]*ts[5|*ts[15] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSS[i] )[3]] 
*ts[Rep(SSS|i]) [4]] 

then print SSS{i]; 

end if; end for; end for; 
N13515s:=N13515; 

4+ N13515s; 
1T13515:=Transversal(N,N13515s); 

4 T13515: 

ford = toe "F13515 do 

e625 /1,3,5 10h 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13515s); 


N13101:=Stabiliser(N,[1,3,10,1]); 
S:=[1,3,10,1]; 
So=5": 


SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[10]*ts[1] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSS[i] )[3]] 
*ts[Rep(SSSIi]) [4]] 

then print SSS{iJ; 

end if; end for; end for; 
N13101s:=N13101; 

4 N13101s; 
T13101:=Transversal(N,N13101s); 

# T13101: 

for i:= 1 to # T13101 do 
62/3/10, te eset: 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13101s); 


N12161:=Stabiliser(N,[1,2,1,6,1]): 

pH 21,650): 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[1] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSS[i]) [4]]*ts[Rep(SSS[i]) [5] 
then print SSS{iJ; 


eo ke 


end if; end for; end for; 
N12161s:=N12161,; 
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# N12161s; 
T12161:=Transversal(N,N12161s); 
# T12161: 

for’ = 1 to # F12161 do 

see= [1.2156 1) 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12161s); 


N12162:=Stabiliser(N,[1,2,1,6,2]); 

5:=(1,2,1;6.2|; 

So: 5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[2] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts|[Rep(SSS|i])[4]|*ts[Rep(SSS|i]) [5] 
then print SSS{i]; 

end if; end for; end for; 
N12162s:=N12162; 

# N12162s: 
T12162:=Transversal(N,N12162s); 
# 112162: 

fori t= 1 to # T12162 do 

got [so G.O)e eer: 


cst[prodim(1, ts, ss)] := ss; 


ar ena 


end for; 


m:=0; 
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for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12162s); 


N12163:=Stabiliser(N,{1,2,1,6,3]); 

§:=[1,2,1,6,3]; 

Ss:=5*. 

SSS:=Setseq(SS); for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[3} 

eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSS[i] )[3]] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS|i]) [5] 
then print SSS{iJ; 


—a yes 


end if; end for; end for; 
N12163s:=N12163; 

# N12163s; 
T12163:=Transversal(N,N12163s); 
#112163; 

for = Dtos- T12163:do 

g82= [19,1.6 3)" el, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12163s); 


N12164:=Stabiliser(N,{1,2,1,6,4]); 
SL oa: 

SS=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 


for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[4] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSi)) [3] 
*ts[Rep(SSS[i]) [4]]*ts[Rep(SSS[i]) [5] 
then print SSS|i]; 


oo: et 


end if; end for; end for; 
N12164s:=N12164; 

# N12164s; 
T12164:=Transversal(N,N12164s); 
#112164: 

fori. =" tose 112164 do 

a6 = (159/164) ae 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12164s); 


N12165:=Stabiliser(N,{1,2,1,6,5]); 

$:=[1,2,1,6,5]; 

SS:=S*: 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[5] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi]) [5] 

then print SSS{iJ; 

end if; end for; end for; 

N12165s:=N12165; 

# N12165s; 

T12165:=Transversal(N,N12165s); 

# T12165: 
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for i:= 1 to # T12165 do 

= [1,2,1,6, 572165, 
cst[prodim(1, ts, ss)] := ss; 
end for; 
m:=0; 
for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12165s); 


N12167:=Stabiliser(N,{1,2,1,6,7]); 

Oi 1206.7: 

S§s:=39": 

SSS:=Setseq(SS); for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[7] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSSi])[4]]*ts[Rep(SSS [i] )[5] 
then print SSS|i]; 


ees 


end if; end for; end for; 
N12167s:=N12167; 

# N12167s; 
T12167:=Transversal(N,N12167s); 
# T12167: 

for 1 =I to 4b P12167 do 

se eo oc] ere, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12167s); 
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N12168:=Stabiliser(N,{1,2,1,6,8]); 

§:=[1,2,1,6,8]; 

99:59. 

SSS:=Setseq(SS); for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[8] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i))[3]] 
*ts[Rep(SSSi])[4]]*ts[Rep(SSS [i] )[5] 
then print SSS{i]; 


os) ets 


end if; end for; end for; 
N12168s:=N12168; 
4. N12168s; 
T12168:=Transversal(N,N12168s); 
4. T12168: 
for i= to 9-1 12168 do 

= [1,2, 1,6, 9]7 21684, 
cst[prodim(1, ts, ss)] := ss; 
end for; 
m:=0; 
for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12168s); 


N12169:=Stabiliser(N,{1,2,1,6,9]); 

$:=[1,2,1,6,9]; 

So:=5"" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[9] 

eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSS[i] )[2]]*ts[Rep(SSS[i]))[3]] 
“ts[Rep(SSS[i]) [4]]*ts[Rep(SSS|i]) [5] 
then print SSS{iJ; 


ta plese 
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end if; end for; end for; 
N12169s:=N12169; 

# N12169s; 
T12169:=Transversal(N,N12169s); 
#'T12169; 

fori) to sp £12169 do 

$69 11,9 1.6, 0) eee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12169s); 


N121610:=Stabiliser(N,[1,2,1,6,10]); 

S:=[1,2,1,6,10]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[10] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i]) [3] 
*ts|Rep(SSS{i])[4]|*ts[Rep(SSS|i] ) [5] 
then print SSS{i]; 

end if; end for; end for; 
N121610s:=N121610; 

# N121610s: 
T121610:=Transversal(N,N121610s); 
# T121610: 

for i:= 1 to # T121610 do 

go (1,2) 16, 10) ee: 


cst([prodim(1, ts, ss)] := ss; 


ao als 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121610s); 


N121611:=Stabiliser(N,[1,2,1,6,11]); 

S:=[1,2,1,6,11]; 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[11] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i])[2]]*ts[Rep(SSSfi)) [3] 
*ts|Rep(SSS|i])[4]|*ts[Rep(SSS|i]) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N121611s:=N121611; 

# N121611s; 
T121611:=Transversal(N,N121611s); 
# T121611: 

for i:= 1 to # T121611 do 

eo [2 bG leone, 


cst([prodim(1, ts, ss)] := ss; 


a As 


end for; 

m:=0; 

for i in [1 .. 672] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N121611s); 


N121612:=Stabiliser(N,[1,2,1,6,12]): 
S:=[1,2,1,6,12]; 


SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[12] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS|i])[4]|*ts[Rep(SSS|i] ) [5] 
then print SSS{i]; 

end if; end for; end for; 
N121612s:=N121612; 

# N121612s: 
T121612:=Transversal(N,N121612s); 
# T121612: 

for.12= 1 to? T121612 do 

se [1,231 619)- ee 


oo } es 


cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 672] do if cst]i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N121612s): 


N121613:=Stabiliser(N,[1,2,1,6,13]); 

S:=[1,2,1,6,13]: 

=o": 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts/6]*ts[13] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSSfi]))[2]]*ts[Rep(SSS|i]) [3] 
*ts[Rep(SSS|i]) [4]]*ts[Rep(SSS[i] ) [5] 
then print SSS|ij; 


ao. es 


end if; end for; end for; 
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N121613s:=N121613; 

# N121613s; 
T121613:=Transversal(N,N121613s); 
# 121613: 

for i:= 1 to # T121613 do 

S67 [e613 |e, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 672] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N121613s); 


N121614:=Stabiliser(N,[1,2,1,6,14]); 

5 —=|[124614); 

SS:=S%; 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[14] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS|i]) [2] *ts[Rep(SSS[i] )[3]] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS|i]) [5] 
then print SSS|ij; 


—> Gs 


end if; end for; end for; 
N121614s:=N121614; 

# N121614s: 
T121614:=Transversal(N,N121614s); 
# T121614; 

for i:= 1 to # T121614 do 

soc "[12;1,.6; 14) eee, 
cst[prodim(1, ts, ss)] := ss; 


end for; 
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m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121614s); 


N121615:=Stabiliser(N,[1,2,1,6,15]); 

S:=[1,2,1,6,15]; 

S5:=5": 

SSS:=Setseq(SS); for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[6]*ts[15] 

eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
*ts[Rep(SSSIi]) [4]]*ts[Rep(SSSIi]) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N121615s:=N121615; 

# N121615s; 
T121615:=Transversal(N,N121615s); 
# T121615: 

for i:= 1 to #T121615 do 

g6 21016; 15] P ater 
cst[prodim(1, ts, ss)] := ss; 


oe 


end for; 

m:=0; 

for i in [1 .. 672] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N121615s); 


N124141:=Stabiliser(N,[1,2,4,14,1]); 
S:=[1,2,4,14,1]; 

gs:—s. 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
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for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[1] 

eq g*ts[Rep(SSSfi))[1]]*ts[Rep(SSS[i] )[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS[i]) [4]]*ts[Rep(SSS[i]) [5] 
then print SSS|i]; 


oo 


end if; end for; end for; 
N124141s:=N124141; 

# N124141s; T124141:=Transversal(N,N124141s); 
# [124141 

for i:= 1 to # T124141 do 

se 12 4 a ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124141s); 


N124142:=Stabiliser(N,[1,2,4,14,2]); 

p= | 12,4142): 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[2] 
eq g*ts[Rep(SSS[i))[1]]*ts{[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSSi])|4]]*ts[Rep(SSS[i] )[5]] 

then print SSS{iJ; 

end if; end for; end for; 
N124142s:=N124142; 

# N124142s: 
T124142:=Transversal(N,N124142s); 
47124142: 
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for i := 1 to #T124142 do 

get 0. 4 14-9 ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124142):; 


N124143:=Stabiliser(N,[1,2,4,14,3]); 
o=|152,4,14,3)3 

S§S:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14] *ts[3} 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS[i])[5]] 
then print SSS{i]; 

end if; end for; end for; 
N124143s:=N124143; 

# N124143s: 
T124143:=Transversal(N,N124143s); 
#1124143: 

for i:= 1 to # T124148 do 

soe [2.414 3 ee, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124143s); 
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N124144:=Stabiliser(N,[1,2,4,14,4]); 
S:=[1,2,4,14,4]; 

SS:=S; 

SSS:=Setseq(SS); for iin [1 .. # SS] do 
for g in IN do if ts[1]*ts[2]*ts[4]*ts[14] *ts[4] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] ) [3] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS|i]) [5]] 
then print SSS{i]; 

end if; end for; end for; 
N124144s:=N124144, 

4. N124144s; 
T124144:=Transversal(N,N124144s); 
47124144: 

fori := 1 to # T124144 do 

és 3= [12.4944 ee, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 

then m:=m-+1; end if; end for; m; 
Orbits(N124144s); 


N124145:=Stabiliser(N,[1,2,4,14,5]); 

S:=[1,2,4,14,5]; 

So:=5"- 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14] *ts[5] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi])[5]] 


then print SSS{iJ; 

end if; end for; end for; 
N124145s:=N124145; 

# N124145s; 
T124145:=Transversal(N,N124145s); 
# T124145: 

for i:= 1 to # T124145 do 

se '|1 2. 4145 Pe ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124145s); 


N124146:=Stabiliser(N,[1,2,4,14,6]); 
S:=[1,2,4,14,6]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[6] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSSfi] )[3]] 
*ts[Rep(SSSIi])[4]]*ts[Rep(SSS|i]) [5]] 

then print SSS{iJ; 

end if; end for; end for; 
N124146s:=N124146; 

+ N124146s: 
T124146:=Transversal(N,N124146s); 
#1124146; 

for i:= 1 to # T124146 do 

gov='| 12,4014, 6)F ee, 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124146s); 


N124147:=Stabiliser(N,[1,2,4,14,7]); 
S:=[1,2,4,14,7]; 

S5:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14] *ts[7] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSS[i] [3] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS[i])[5]] 
then print SSS{iJ; 

end if; end for; end for; 
N124147s:=N124147; 

# N124147s: 
T124147:=Transversal(N,N124147s); 
4 T124147; 

for i:= 1 to # T124147 do 

sent ea cence 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:—=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124147s); 


N124148:=Stabiliser(N,[1,2,4,14,8]); 
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S:=[1,2,4,14,8]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[8] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
*ts|[Rep(SSS|i])[4]|*ts[Rep(SSS]i] ) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N124148s:=N 124148; 

# N1241485: 
T124148:=Transversal(N,N124148s); 
# T124148: 

for i:= 1 to # T124148 do 

so3= [1,24 148) teeell 


cst[prodim(1, ts, ss)] := ss; 


os! ete 


end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124148s); 


N124149:=Stabiliser(N,[1,2,4,14,9]); 

S:=[1,2,4,14,9]; 

So=5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14] *ts[9] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSSIi))[4]]*ts[Rep(SSS[i] )[5]] 

then print SSS{iJ; 
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end if; end for; end for; 
N124149s:=N124149; 

# N124149s; 
T124149:=Transversal(N,N124149s); 
# T124149: 

for i:= 1 to # T124149 do 

ss [Lat Oa 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N124149s); 


N1241410:=Stabiliser(N ,[1,2,4,14,10]): 

S:=[1,2,4,14,10]; 

SS:=5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[10] 

eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
*ts|Rep(SSS|{i])[4]|*ts[Rep(SSS]ij ) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N1241410s:=N1241410; 

# N1241410s: 
T1241410:=Transversal(N,N1241410s); 
# T1241410: 

for i:= 1 to # T1241410 do 

set 124A Oe 


ao qi 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1241410s); 


N1241411:=Stabiliser(N,[1,2,4,14,11]): 
S:=[1,2,4,14,11]; 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[11] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2] *ts[Rep(SSSfi] )[3]] 
*ts[Rep(SSS|i})[4]]*ts[Rep(SSS[i])[5]] 
then print SSS{iJ; 

end if; end for; end for; 
N1241411s:=N1241411; 

# N1241411s; 
T1241411:=Transversal(N,N1241411s); 
# 71241411: 

for i:= 1 to # T1241411 do 

SS lee a4 Tee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m0; 

for iin [1 .. 672] do if cst{i] ne [ | 

then m:=m-+1; end if; end for; m; 
Orbits(N1241411s); 


N1241412:=Stabiliser(N,[1,2,4,14,12]); 
S:=[1,2,4,14,12]; 


SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[12] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSS|i])[4]|*ts[Rep(SSS|i] ) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N1241412s:=N1241412; 

# N1241412s: 
T1241412:=Transversal(N,N1241412s); 
#1241412: 

for i:= 1 to # T1241412 do 

se 19-4 dA io eet 


os } es 


cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1241412s); 


N1241413:=Stabiliser(N, [1,2,4,14,13}); 

S:=[1,2,4,14,13]; 

So.—= 5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[13] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]))[2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS|i]) [5] 
then print SSS{iJ; 


end if; end for; end for; 


So es 
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N1241413s:=N1241413; 

# N1241413s: 
T1241413:=Transversal(N,N1241413s); 
# 71241413: 

for i:= 1 to # T1241413 do 

as = [1 Ot 14, a ee 
cst[prodim(1, ts, ss)| := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1241413s); 


N1241415:=Stabiliser(N,[1,2,4,14,15}); 

S:=[1,2,4,14,15]; 

55:5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[14]*ts[15] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]))[2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS|i]) [5] 
then print SSS{iJ; 


> Gs 


end if; end for; end for; 
N1241415s:=N1241415; 

# N1241415s: 
T1241415:=Transversal(N,N1241415s); 
# 11241415: 

for i:= 1 to # T1241415 do 

Soe" |1 Di AclAio Pieter. 
cst[prodim(1, ts, ss)] := ss; 


end for; 
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m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1241415s); 


N129151:=Stabiliser(N,[1,2,9,15,1]); 
S:=[1,2,9,15,1]; 

S5:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[15]*ts[1] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi]) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N129151s:=N129151; 

# N129151s: 
T129151:=Transversal(N,N129151s); 
# 7129151: 

for i:= 1 to # T129151 do 

soc= (12,01 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12915 1s); 


N129152:=Stabiliser(N,[1,2,9,15,2]); 
S:=[1,2,9,15,2]; 
SS=5": 


SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[15]*ts[2] 

oq g*ts[Rep(S85[i)[1]|*ts[Rep(SS5[i)) 2]}*ts[Rep(SSShi)) 3] 
*ts[Rep(SSS[i]) [4]]*ts[Rep(SSS[i]) [5] 
then print SSS{i]; 


ag) es 


end if; end for; end for; 
N129152s:=N129152; 

# N129152s; 
T129152:=Transversal(N,N129152s); 
4 T129152: 

fori 2= 1 to 4 1129152 do 
e521, 2, 0.15, Oo) areal: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N129152s): 


N129153:=Stabiliser(N,[1,2,9,15,3]); 
§:=[1,2,9,15,3]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[15]*ts[3} 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi]) [5] 

then print SSS{iJ; 

end if; end for; end for; 
N129153s:=N129153; 
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# N129153s; 
T129153:=Transversal(N,N129153s); 
#7129153: 

for i:= 1 to # T129153 do 
53/1129) 15, 3 ee: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N129153s); 


N129154:=Stabiliser(N,[1,2,9,15,4]); 
S:=[1,2,9,15,4]; 

So: 9" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[15]*ts[4] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i]) [3] 
“ts[Rep(SSSi))|4]]*ts[Rep(SSS[i] )[5]] 

then print SSS{iJ; 

end if; end for; end for; 
N129154s:=N129154; 

# N129154s; 
T129154:=Transversal(N,N129154s); 
#7129154: 

for i:= 1 to # T129154 do 

ge7= [172,015 4), 

cst[prodim(1, ts, ss)] := ss; 

end for; 


m:=0; 
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for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N129154s); 


N1291510:=Stabiliser(N,[1,2,9,15,10}); 

S:=[1,2,9,15, 10}; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9]*ts[15]*ts/10] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i]) [3]] 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS]i] ) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N1291510s:=N1291510; 

4 N1291510s: 
T1291510:=Transversal(N,N1291510s); 
#T1291510: 

for i := 1 to # T1291510 do 

ag 2 [19,05 15, 10] 2 ork 


cst[prodim(1, ts, ss)] := ss; 


ir Vers 


end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1291510s); 


N1291513:=Stabiliser(N,[1,2,9,15,13]): 
§:=[1,2,9,15,13]; 

SS:=5%: 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

fodo if ts[1]*ts[2]*ts[9]*ts[15]*ts[13] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
*ts[Rep(SSSIi])|4]]*ts[Rep(SSS[i] )[5]] 
then print SSS{i]; 

end if; end for; end for; 
N1291513s:=N1291513; 

# N1291513s: 
T1291513:=Transversal(N,N1291513s); 
4. T1291513: 

for 12= 1 to 4 11291513: do 

a6 = (152,015. 13)2 ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 

then m:=m-+1; end if; end for; m; 
Orbits(N1291513s): 


N131111:=Stabiliser(N,[1,3,1,11,1]); 
S:=[1,3,1,1L,1 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1]*ts[11]*ts[1] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi]) [5] 

then print SSS{iJ; 

end if; end for; end for; 
N131111s:=N131111,; 

# N131111s; 
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T131111:=Transversal(N,N131111s); 
# T131111. 

for i:= 1 to # T131111 do 

seo [Lo Teich, ier 
cst[prodim(1, ts, ss)] := ss; end for; 
m:=0; 

for iin [1 .. 672] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N131111s); 


N135111:=Stabiliser(N,[1,3,5,11,1]); 
§:=[1,3,5,11,1]; 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[11]*ts[1] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS |i] ) [3] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi]) [5]] 

then print SSS{iJ; 

end if; end for; end for; 
N135111s:=N135111; 

# N135111s; 
T135111:=Transversal(N,N135111s); 

# 7135111: 

for i:= 1 to # T135111 do 

see (18, Sold) eee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N135111s); 


N135112:=Stabiliser(N,[1,3,5,11,2]): 

S:=[1,3,5,11,J]: 

SS:=5™. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[11]*ts[2] 

eq g*ts[Rep(SS5[i)[1]|*ts[Rep(SS5[i)) 2]}*ts[Rep(SSShi)) 3) 
*ts[Rep(SSS|i])[4]]*ts[Rep(SSS|i]) [5] 
then print SSS{i]; 


a, 


end if; end for; end for; 
N135112s:=N135112; 

# N135112s: 
T135112:=Transversal(N,N135112s); 
# 1135112: 

for i:= 1 to # T135112 do 

ss3= [13,5102] oer, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1 .. 672] do if cst{i] ne | ] 
then m:=m-+1; end if; end for; m; 
Orbits(N135112s); 


N135114:=Stabiliser(N,[1,3,5,11,4]); 
S:=[1,3,5,11,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[11]*ts[4] 
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eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS i] ) [3] 
*ts[Rep(SSS|i))[4]]*ts[Rep(SSSIi]) [5]] 
then print SSS{i]; 

end if; end for; end for; 
N135114s:=N135114; 

# N135114s: 
T135114:=Transversal(N,N135114s); 
# T135114; 

for i:= 1 to # T135114 do 

se [13,5 ia eee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N135114s); 


N1351114:=Stabiliser(N, [1,3,5,11,14]); 
S:=[1,3,5,11,14); 

S59": 

SSS:=Setseq(SS); for i in [1.. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[11]*ts[14] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] [3] 
*ts[Rep(SSSIi])[4]]*ts[Rep(SSS|i]) [5] 

then print SSS{i]; 

end if; end for; end for; 
N1351114s:=N1351114; 

# N1351114s; 
T1351114:=Transversal(N,N1351114s); 

# T1351114; 

for i:= 1 to # T1351114 do 
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per |[1s.3,.5, 41 ia) oe 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1351114s); 


N1351115:=Stabiliser(N,[1,3,5,11,15]); 

S:=[1,3,5,11, 15]; 

SS:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5]*ts[11]*ts[15] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i])[3]] 
*ts|Rep(SSS{i])[4]|*ts[Rep(SSS]i] ) [5] 
then print SSS{iJ; 

end if; end for; end for; 
N1351115s:=N1351115; 

# N1351115s; 
T1351115:=Transversal(N,N1351115s); 
# T1351115; 

for i:= 1 to # T1351115 do 

soe |13, elie Is) eet 


cst[prodim(1, ts, ss)] := ss; 


a Ge 


end for; 

m:=0; 

for iin [1 .. 672] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1351115s); 
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Appendix C 


Magma Work for 
OS 10 iS eb): 2) 


S:=Sym(15); 

sol 2.6,.36,-04, 10%. 12 ToT 1320 4 

yy:=S!(2, 7, 8, 9)(3, 10, 5, 11)(4, 12, 18, 6); 

N:=sub< S|xa, yy >; 

# N; 

Stabiliser(N,1); 

G< 2,y,t >:= Group< z,y,tly*,y 1 +277 ey, , (ty), (y | «x! «tb >; 
# G; 

f,G1,k:=Coset Action(G,sub< G|z, y >); IN:=sub< G1|f(x), f(y) >; 
CompositionFactors(G1); 

# DoubleCosets(G,sub< G|z,y >, sub< G|z,y >); 

DoubleCosets(G,sub< G|z,y >, sub< G|z,y >); 

NN< a,b >:= Group< a, b|b*, b-!*a~?xb*xa7! >; Sch:=SchreierSystem(NN,sub< 
NN|Id(NN) >); 

ArrayP:=[Id(N): i in [1 .. 60]]; 

for i in [2 .. 60] do 

P:=[Id(N): 1 in [1 .. # Sch{il]]; 

for j in [1..4 Schli]] do 
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if Eltseq(Sch{i]) [j] eq 1 then P|j]:—xx; end if 

if Eltseq(Sch{i])[j] eq —1 then P{j]:=aa7~'; end if 
if Eltseq(Sch{i])[j] eq 2 then P[j]:=yy; end if 

if Eltseq(Sch{i])[j] eq —2 then P[j]:=yy7'; end if 
end for; 

PP:=Id(N); 


for k in [1 .. # P] do 
PP:=PP*P|k]; end for; 
ArrayP|i]:=PP 

; end for; 

for i in [1 .. 60] do if ArrayP|i] eq N!(2, 7, 8, 9)(3, 10, 5, 11)(4, 12, 13, 6) 
then Sch{i; 

end if; end for; 

prodim := function(pt, Q, I) 
vi=pt; 

for i in I do 

aye). 

end for; 

return V; 


end function; 


( 
ts Be 
(t@)); ts[15]:=f(t@"); 


cst:=[null : i in [1 .. Index(G,sub< Gz, y >)]] 


where null is [Integers( ) | ]; 

for i:= 1 to 15 do 
cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 


then m:=m-+1; end if; end for; m; 


N1:=Stabiliser(N,1); 
SLE 

Sos 5). 
SSS:=Setseq(SS); 

for iin [1 .. # SS] do 
for g in IN do if ts/1] 
eq g*ts[Rep(SSS6i) [1] 
then print SSS|i]; 

end if; end for; end for; 
Nis:=N1; 

# Nils; 
T1:=Transversal(N,N1s); 
# T1; 

Orbits(N1s); 


N114:=Stabiliser(N,[1,14]); 
S:=[1,14]; 

So.=5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[14] 


eq g*ts[Rep(SSS[i))[1]]*ts{[Rep(SSS|i]) [2]] 


then print SSS{i]; 
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end if; end for; end for; 
N114s:=N114; 

# N114s; 
T114:=Transversal(N,N114s); 

# T114; 

for i:= 1 to 15 do 

cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; 

for i in [1..40] do if cst[i] ne [| | 
then m:=m-+1; end if; end for; m; 
Orbits(N114s); 

for m,n in IN do if ts[1]*ts[14] eq m x (ts[1])” 


then m,n; end if; end for; 


for i in [1 .. 30] do i, cst|i]; end for; 


N115:=Stabiliser(N,{1,15]); 
S:=[1,15]: 

SS:=S%, 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[15] 
eq g*ts[Rep(SSS[i]) [1]]*ts[Rep(SSSIi)) [2] 
then print SSS|ij; 

end if; end for; end for; 
N115s:=N115; 

# N115s; 
T115:=Transversal(N,N115s); 
de L115: 

for i:= 1 to # T115 do 
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soe OP) peer 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for i in [1..40] do if cst[i] ne [| | 

then m:=m-+1; end if; end for; m; 

Orbits(N115s); 

for m,n in IN do if ts[1]*ts[15] eq m * (ts[1] * ts[14])” 


then m,n; end if; end for; 


N12:=Stabiliser(N,[1,2]); 

Si= 52]; 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2] 

eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
then print SSS{iJ; 

end if; end for; end for; 
N12s:=N12; 

# N12s; 
T12:=Transversal(N,N12s); 

= aa tale 

fori =]. to # T12 de 

soc [Lol ee: 

cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 

for i in [1..40] do if cst[i] ne [| | 


then m:=m-+1; end if; end for; m; 
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N13:=Stabiliser(N,|1,3]); 
S:=[1,3]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3} 

eq g*ts[Rep(SSS|i})[1]]*ts[Rep(SSS[i])[2]] 
then print SSS{i]; 

end if; end for; end for; 
N13s:=N13; 

# N13s; 
T13:=Transversal(N,N13s); 

7 3 

for 1.41. to # “TP 13sdo 

se3= [ign 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13s); 


N14:=Stabiliser(N,[1,4]); 

S:=[1,4]; 

So" 

SSS:=Setseq(SS); 

for iin [1 .. # SS] do 

for g in IN do if ts[1]*ts[4] 

eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS|i)) [2]] 
then print SSS{iJ; 


end if; end for; end for; 


N14s:=N14; 

# N14s; 
T14:=Transversal(N,N14s); 

# T14; 

for i:= 1 to # T14 do 

as 7= [14/7 Sk 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N14s); 


N1141:=Stabiliser(N,[1,14,1]}); 
S:=[1,14,1); 

SS:=5*%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[14]*ts[1] 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i])[3]] 


then print SSS{i]; 

end if; end for; end for; 
N1141s:=N1141: 

4+ N114Is; 
T1141:=Transversal(N,N1141s); 
# T1141: 

fori 12 to 4 T1141 do 

gS [hae ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 


m:=0; 
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for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1141s); 


N1142:=Stabiliser(N,[1,14,2]); 
S=[1,14,2); 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[14]*ts[2] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N1142s:=N1142: 

# N1142s: 
T1142:=Transversal(N,N1142s); 
# T1142: 

fort ltose P1142 do 

ss2= "dj 14) ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1142s); 


N121:=Stabiliser(N,[1,2,1]); 
op peel Oe 

SS=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 
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for g in IN do if ts[1]*ts[2]*ts[1] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N121s:=N121: 

4 N121s: 
T121:=Transversal(N,N121s); 

# T121: 

for iz Lito se 12 1 -do 

ga [1.2 0 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N121s); 


N123:=Stabiliser(N,|1,2,3]); 
S| 152.3: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[3] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
then print SSS{i]; 

end if; end for; end for; 
N123s:=N123; 

# N123s; 
T123:=Transversal(N,N123s); 
41123: 

for i:= 1 to # T123 do 
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sical aes ea 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N123s); 


N124:=Stabiliser(N,[1,2,4]); 

b= 152 Al 

§5:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts|4] 
eq g*ts[Rep(SSS[i]) [1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS |i] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N124s:=N124; 

# N124s; 
T124:=Transversal(N,N124s); 
# T124; 

for 1 7= 1 to 4 1124 do 

S52 [1D Arr 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N124s); 


N125:=Stabiliser(N,[1,2,5]); 
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= E25) 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[5] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N125s:=N125; 

4 N125s: 
T125:=Transversal(N,N125s); 

a E125: 

fori := 1 to.4¢ T125 do 

se 12. Sled 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N125s); 


N126:=Stabiliser(N,|1,2,6]); 

S= 0,2.) 

so.=5"- 

SSS:=Setseq(SS); 

for i in [1 .. #55] do 

for g in IN do if ts[1]*ts[2]*ts[6] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3]] 
then print SSS{i]; 

end if; end for; end for; 

N126s:=N126; 


# N126s; 
T126:=Transversal(N,N126s); 
# T126; 

for i := 1 to # T126 do 

seo= [1 2,6|7 er 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N126s); 


N127:=Stabiliser(N,[1,2,7]); 

SS 2acl 

gs: 9" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[7] 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i])[3]] 


then print SSS{i]; 

end if; end for; end for; 
N127s:=N127; 

# N127s; 
T127:=Transversal(N,N127s); 
#127: 

fori = hie 4 F127: 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 

for i in [1..40] do if cst[i] ne [| | 


then m:=m-+1; end if; end for; m; 
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Orbits(N127s); 


N128:=Stabiliser(N,|1,2,8]); 

5:= (12,8) 

SS: 5". 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[8} 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2] *ts[Rep(SSSfi] ) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N128s:=N128; 

# N128s; 
T128:=Transversal(N,N128s); 
# T128; 

fori = 1tog-T128 do 

oo ee ol ea 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N128s); 


N129:=Stabiliser(N,|1,2,9]); 

5:=|12,9): 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[9] 

eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
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then print SSS{iJ; 

end if; end for; end for; 
N129s:=N129; 

# N129s; 
T129:=Transversal(N,N129s); 
ae 129s 

for i := 1 to # T129 do 

Ss et oa?) al 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 

for i in [1..40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N129s); 


N1210:=Stabiliser(N,[1,2,10}); 
S'=|12.10} 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[10] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]))[2]]*ts[Rep(SSS|i]) [3] 
then print SSS|i]; 

end if; end for; end for; 
N1210s:=N1210; 

# N1210s: 
T1210:=Transversal(N,N1210s); 
# T1210: 

fori t= to. P12 10do 

seas lo ee 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin | 1.. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1210s); 


N1211:=Stabiliser(N,[1,2,11]); 

p= 152 1b 

SS:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do for g in IN do if ts[1]*ts[2]*ts[11] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSf[i] ) [3] 
then print SSS{i]; 

end if; end for; end for; 

N1211s:=N1211; 

# N1211s: 

T1211:=Transversal(N,N1211s); 

“T1211: 

for t= to 2 do, 

ss 210, ee, 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 

then m:=m-+1; end if; end for; m; 

Orbits(N1211s); 


N1212:=Stabiliser(N,[1,2,12]); 
21k 

SS:=5%: 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[12] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS [i] ) [3] 
then print SSS{i]; 

end if; end for; end for; 
N1212s:=N1212; 

# N1212s: 
T1212:=Transversal(N,N1212s); 
# T1212: 

fori. t= /L tose T1212 do 

aa ee ea 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1212s); 


N1213:=Stabiliser(N,[1,2,13]); 
DSL 213) 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[13] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2] *ts[Rep(SSSfi] ) [3] 
then print SSS{i]; 

end if; end for; end for; 
N1213s:=N1213; 

# N1213s: 
T1213:=Transversal(N,N1213s); 
471213: 
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for 1?= 1 to-# T1213.do 

sioareal es aaa 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1213s); 


N1214:=Stabiliser(N,[1,2,14]); 
5= (1,2, 14); 

Ss:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2|*ts[14] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
then print SSS{iJ; 

end if; end for; end for; 
N1214s:=N1214: 

# N1214s: 
T1214:=Transversal(N,N1214s); 
# T1214: 

for 1 2=1to 4211214 do 

go [12 Ae 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1214s); 
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N1215:=Stabiliser(N,[1,2,15]); 
p= 22.15) 

so5" 

SSS:=Setseq(SS); 

for i in [1 .. #55] do 

for g in IN do if ts[1]*ts[2]*ts[15] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
then print SSS{i]; 

end if; end for; end for; 
N1215s:=N1215; 

# N1215s: 
T1215:=Transversal(N,N1215s); 
# T1215: 

fori a= to ge TV odo 

se2= [12.150 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1215s); 


N131:=Stabiliser(N,[1,3,1]); 

$:=[1,3,1); 

Soo)" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[1] 

eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS|i)) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{iJ; 


end if; end for; end for; 


N131s:=N131: 

# N131s; 
T131:=Transversal(N,N131s); 
# T1311: 

for i:= 1 to # T131 do 

as7= [ise eek 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N131s); 


N132:=Stabiliser(N,|1,3,2]); 
S:=[1,3,2]: 

SS:=5*. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[2] 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSS[i]) [3]] 


then print SSS{iJ; 

end if; end for; end for; 
N132s:=N132: 

# N132s; 
T132:=Transversal(N,N132s); 
# T132: 

fori: 1 to 4 T132:do 

= oreo 
cst[prodim(1, ts, ss)] := ss; 
m:=0; 


for iin [1 .. 40] do if cst{i] ne | | 
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then m:=m-+1; end if; end for; m; 
Orbits(N132s); 


N134:=Stabiliser(N,|1,3,4]); 
S:=[1,3,4]; 

SS 5%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts|4] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi]) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N134s:=N134; 

# N134s; 
T134:=Transversal(N,N134s); 
# T1134; 

for i := 1 to # T134 do 

ope ea 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin | 1.. 40] do if est{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N134s); 


N135:=Stabiliser(N,[1,3,5]); 
§:=[1,3,5]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[5] 
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eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
then print SSS{iJ; 

end if; end for; end for; 
N135s:=N135; 

4 N135s; 
T135:=Transversal(N,N135s); 

4 'T135; 

for i2=1 to 46 “1130 do 

sh i= [13,5] PE 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N135s); 


N136:=Stabiliser(N,|1,3,6]); 
S:=[1,3,6]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[6] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
then print SSS{i]; 

end if; end for; end for; 
N136s:=N136; 

4 N136s; 
T136:=Transversal(N,N136s); 
#7136; 

for i:= 1 to # T1386 do 

gov’ | svole rr 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N136s); 


N137:=Stabiliser(N,[1,3,7]); 

Sa h3. 0) 

S5:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[7] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS |i] ) [3] 
then print SSS{i]; 

end if; end for; end for; 
T127:=Transversal(N,N127s); 
T1272 

for i:= 1 to # T127 do 

ss 2S [10,77 ee 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N137s); 


N138:=Stabiliser(N,|1,3,8]); 
§:=[1,3,8]; 

SS:=5": 

SSS:=Setseq(SS); 
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for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[8] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi)) [3] 
then print SSS{i]; 

end if; end for; end for; 
N138s:=N138; 

4 N138s; 
T138:=Transversal(N,N138s); 

# T138: 

for i:= 1 to # T1388 do 

a6 = [1,3, 8) PE. 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N138s); 


N139:=Stabiliser(N,|1,3,9]); 
§:=[1,3,9]; 

SS:=S*: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[9] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSSfi]) [3] 
then print SSS{i]; 

end if; end for; end for; 
N139s:=N139; 

4. N139s: 
T139:=Transversal(N,N139s); 
4 139; 


246 


fori 7= 1 to-4f 1139 do 

ss := [1,3, 9/729"; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N139s); 


N1310:=Stabiliser(N,[1,3,10}); 
S:=[1,3,10]: 

S§S:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[10] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2] *ts[Rep(SSSfi] )[3]] 
then print SSS{iJ; 

end if; end for; end for; 
N1310s:=N1310; 

# N1310s: 
T1310:=Transversal(N,N1310s); 
# T1310: 

for 1 t=1to-4 P1310 do 

soe 3 el: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1310s); 
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N1311:=Stabiliser(N,[1,3,11]); 
S:=[1,3,11]: 

ss5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[11] 
eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i]) [2]] *ts[Rep(SSSfi] )[3]] 
then print SSS{i]; 

end if; end for; end for; 
N1311s:=N1311; 

# N1311s; 
T1311:=Transversal(N,N1311s); 
# T1311. 

fori.4= Ao gP TV 13 Lt do 

se2= [io lee 
cst[prodim(1, ts, ss)| := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if est{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1311s); 


N1312:=Stabiliser(N,[1,3,12]); 

§:=[1,3,12); 

So=5) 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[12] 

eq g*ts[Rep(SSSfi))[1]]*ts[Rep(SSS[i] )[2]]*ts[Rep(SSS[i] [3] 
then print SSS{iJ; 


end if; end for; end for; 


N1312s:=N1312; 

# N1312s; 
T1312:=Transversal(N,N1312s); 
# T1312: 

for ="hto ge FIs do 

ss [1,310 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if est{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1312s); 


N1313:=Stabiliser(N,[1,3,13]); 
§:=[1,3,13]; 

SS:=5%: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[13] 


eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi]) [2]]*ts[Rep(SSSfi])[3]] 


then print SSS{i]; 

end if; end for; end for; 
N1313s:=N1313; 

4 N1313s; 
T1313:=Transversal(N,N1313s); 
4. T1313: 

for i := 1 to # T1313 do 

ss7= [1,3, 13)4, 

cst([prodim(1, ts, ss)] := ss; 

end for; 


m:=0; 
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for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N13138s); 


N1314:=Stabiliser(N,[1,3,14]); 
S:=[1,3,14]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[3]*ts[14] 
eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]]*ts[Rep(SSS[i]) [3] 
then print SSS{iJ; 

end if; end for; end for; 
N1314s:=N1314: 

# N1314s; 
T1314:=Transversal(N,N1314s); 
# T1314: 

fort Ltos- Fi3l4 do 

s2= ldo 14), 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1314s); 


N1315:=Stabiliser(N,[1,3,15}); 
S:=[1,3,15]: 

SS=5%: 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 
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for g in IN do if ts[1]*ts[3]*ts[15] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i])[2]] *ts[Rep(SSS i] ) [3] 
then print SSS{i]; 

end if; end for; end for; 
N1315s:=N1315; 

# N1315s: 
T1315:=Transversal(N,N1315s); 
# T1315: 

for i= 1.to 4 T1315-do 

Beg PS a Ws eer 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N1315s); 


N114114:=Stabiliser(N,[1,14,1,14]); 
S:=[1,14,1,14]; 

S59": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[14]*ts[1]*ts[14] 
eq g*ts[Rep(SSSIi))[1]]*ts[Rep(SSS|i]) [2]]*ts[Rep(SSS|i)) [3] 
*ts[Rep(SSS|i]) [4] 

then print SSS{iJ; 

end if; end for; end for; 
N114114s:=N114114; 

# N114114s; 
T114114:=Transversal(N,N114114s); 
47114114; 
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fori := 1 to # T114114 do 

ger [114s hay eae 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N114114s); 


N114115:=Stabiliser(N,[1,14,1,15]); 
o=|114.1 15) 

§S:=9": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do 
if ts[1]*ts[14]*ts[1]*ts[15] 

eq g*ts[Rep(SSS|i]) [1]]*ts[Rep(SSS[i] [2]]*ts[Rep(SSS|i[3]] 
*ts|Rep(SSS|i]) [4 
then print SSS{iJ; 


— 


ess 


end if; end for; end for; 
N114115s:=N114115; 

# N114115s; 
T114115:=Transversal(N,N114115s); 
# T114115: 

fori := 1 to # T114115 do 

te ee el tect 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 


then m:=m-+1; end if; end for; m; 
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Orbits(N114115s); 


N11412:=Stabiliser(N,[1,14,1,2]); 
5:=(1,14,1,2]: 

SS:=5™. 

SSS:=Setseq(SS); 

for i in [1 .. #55] do 

for g in IN do if ts[1]*ts[14]*ts[1]*ts[2] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS|i])[2]] *ts[Rep(SSS|i]) [3] *ts[Rep(SSS[i] [4] 
then print SSS{i]; 

end if; end for; end for; 
N11412s:=N11412; 

# N11412s: 
T11412:=Transversal(N,N11412s); 
# T11412: 

fori biog? TIA do 

so3= [1 14,19) er, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if est{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N11412s); 


N11413:=Stabiliser(N,[1,14,1,3]); 

S114 13k 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[14]*ts[1]*ts[3] 

eq g*ts[Rep(SSS[i])[1]]*ts[Rep(SSSIi])[2]] *ts[Rep(SSSIi])[3]]*ts[Rep(SSSfi]) [4]| 
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then print SSS{iJ; 

end if; end for; end for; 
N11413s:=N11413; 

# N11413s; 
T11413:=Transversal(N,N11413s); 
# T11413; 

forit= 1 to # T11413.do 

so= [dia o|e ee 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 40] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N11413s); 


N11414:=Stabiliser(N,[1,14,1,4]); 
S:=(1,14,1,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[14]*ts[1]*ts[4] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS|i])[2]] *ts[Rep(SSS|i]) [3] *ts[Rep(SSS[i] ) [4] 
then print SSS{iJ; 

end if; end for; end for; 
N11414s:=N11414; 

4 N11414s; 
T11414:=Transversal(N,N11414s); 

4 T11414: 

fori t= to TIAA do 

seg" |1 14 a dP 


cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for iin [1 .. 40] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N11414s); 
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Appendix D 
Magma Work for Sym(15) 


S:=Sym(15); 

sect B!1, 206..8,8. 44. 1037 

12, 11, 15, 13, 5, 9, 4); 

yy := SI(2, 7, 8, 9)(3, 10, 5, 11) 

(4, 12, 13, 6): 

N:=sub< S|xx, yy >; 

it N; 

G< 2,y,t > := Group< 2, y, tly*, y~ 
i)? >; 

# G; 

f,G1,k := CosetAction(G,sub< G|z, y >); 

IN := sub< G1|f (x), f(y) >; 
CompositionFactors(G1); 

# DoubleCosets(G,sub< G|z, y >,sub< G|x, y >); 
DoubleCosets(G,sub< G|z,y >, sub< G|z,y >); 


ea SU ot Ga ly eee) ee 


NNija,bj, := Group< a, b|b*,b-1 x a~? x bx a! >; 
Sch:=SchreierSystem(NN,subj NN—Id(NN);); 
ArrayP := [Id(N): iin [1 .. 60]]; 

for i in [2 .. 60] do 

P:=[Id(N): 1 in [1..4 Schli]]]; 


for j in [1..4 Sch 
if Eltseq(Sch{i]) [j 
if Eltseq(Sch{i]) [j 
if Eltseq(Sch{i]) [j 
if Eltseq(Sch{i}) [j 
end for; 
PP:=Id(N); 


1 


i]] do 

eq 1 then P|j]:=xx; end if; 

eq —1 then P[j]:=2271; end if; 
eq 2 then P|j]:=yy; end if; 

eq —2 then P[j]:=yy7!; end if; 


for k in [1..4 P] do 
PP:=PP*P|k]; end for; 


ArrayP|i]:=PP; 
end for; 
for i in [1..60] do 


if ArrayP|i] eq 


NI(2, 7, 8, 9)(3, 10, 5, 11)(4, 12, 13, 6) 


then Schlij; 
end if; end for; 
prodim := functi 
vi=pt; 

for i in I do 
vi=v ld. 

end for; 

return V; 

end function; 
t= ((Id(G1 ir 4 
ts[4]: 
ts[6]:=f(t” 
ts[8]: 
ts[10]:=f(t* ); ts 
ts[12]:=f(t" 
ts[14]:=f(t*’); ts 


est := [null : iin 


=f(t*""); ts[5]: 


on(pt, Q, I) 


in [1 .. 15] J; ts[1]: 
=f(t""); 
-=f(t"); 

:=f(t?"”): 
11]:=f(¢t*”); 


=f(t); ts[2]:=£(t”); t 


¢*°)-ts[13]:=f(t?""); 


15]:=f(t"°); 
[1 .. Index(G,sub< G|z, y >)]] 


where null is [Integers( ) | |; 


s[3]:=f(t*"); 
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for i:= 1 to 15 do 

cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; for i in [1 .. 8] do if cst[i] ne [ | 


then m:=m-+1; end if; end for; m; 


N1:=Stabiliser(N,1); 

SSL 

So:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1] 

eq g*ts[Rep(SS[i]) [1] 

then print SSS{i]; 

end if; end for; end for; 
Nis:=N1; 

# Nis; 
T1:=Transversal(N,N1s); 

# T1; 

for i := 1 to 15 do 
cst[prodim(1, ts, [i])]:=[i]; 
end for; 

m:=0; for iin [1 .. 8] do if est|i] ne |] 
then m:=m-+1; end if; end for; m; 
T1 := Transversal(N,N1s); 
fori:= 1to # T1 do 

Sioa (Ape 

cst[prodim(1, ts, SS)] := SS; 
end for; 


m:=0; 


for iin [1 .. 8] do if cst{i] ne [| ] then m:=m+1; 
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end if; end for; m; 
Orbits(N1s); 


N12:=Stabiliser(N,[1,2]); 

S:=[1,2]; 

555%. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2] 

eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
then print SSS{iJ; 

end if; end for; end for; 

N12s:=N12; 

# N12s; 

T12:=Transversal(N,N12s); 

= a 

for i=l tow “P12:do 

so= ||P r 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1 .. 8] do if cst[i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N12s); 


N14:=Stabiliser(N,|1,4]); 

S:=[1,4]; 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[4] 

eq g*ts[Rep(SSSfi])[1]]*ts[Rep(SSSIi]) [2]] 
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then print SSS{iJ; 

end if; end for; end for; 
N14s:=N14; 

# N14s; 
T14:=Transversal(N,N14s); 
ae ae 

for toe TP 14-de 
sai Aes 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; for iin [1 .. 8] do if cst[i] ne [ ] 


then m:=m-+1; end if; end for; m; 


N121:=Stabiliser(N,[1,2,1]); 
S:=[1,2,1]: 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSS|i])[3]] 

then print SSS{iJ; 

end if; end for; end for; 
N121s:=N121: 

# N121s: 
T121:=Transversal(N,N121s); 
#4 T121: 

for i:= 1 to # T121 do 

gn ee eae 
cst[prodim(1, ts, ss)] := ss; 


end for; 


m:=0; 

for iin [1 .. 8] do if cst|i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N121s); 


N124:=Stabiliser(N,|1,2,4]); 
S| 2A: 

SS:=5": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts|4] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSS|i])|[3]] 

then print SSS{iJ; 

end if; end for; end for; 
N124s:=N124; 

# N124s; 
T124:=Transversal(N,N124s); 
# T124; 

Orbits(N124s); 
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Appendix E 
Magma Work for 5¢ 


S:=Sym/(5); 

RSC Sold 2A. 8) 
yy:=S!(2, 4, 3, 5); 
N:=sub< S|xz, yy >; 
# N; 


G< x,y,t goa Group< Rig ey * a * Y * oes (t, Y); Ge? * OD 


Ly ker eae Se 

it G; 

f,G1,k:=CosetAction(G,sub< Gx, y >); 

IN:=sub< G1|f(x), f(y) >; 

CompositionFactors(G1); 

# DoubleCosets(G,sub< G|z,y >,sub< G|zx,y >); 
DoubleCosets(G,sub< G|z,y >, sub< Glx,y >); 

NN< a,b > := Group< a, b|b*,a~°, b-1 x a-?7 * be a! >; 
Sch:=SchreierSystem(NN,sub< NN|Id(NN) >); 
ArrayP:=[Id(N): i in [1..20]]; 
for i in [2 .. 20] do 
P:=[Id(N): 1 in [1..4 SchliJ]]; 
for j in [1..4 Schli]] do 

if Eltseq(Sch{i]) [j] eq 1 then P[j]:—xx; end if; 
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-1 


k 


if Eltseq(Sch{i])[j] eq —1 then P{j]:=aa27~'; end if; 
if Eltseq(Sch{i])[j] eq 2 then P[j]:—yy; end if; 

if Eltseq(Sch{i])[j] eq —2 then P[j]:=yy7!; end if; 
end for; 

PP:=Id(N); 

for k in [1..4 P] do 

PP:=PP*P|k]; end for; 

ArrayP|i]:=PP; 

end for; 

for iin [1 .. 20] do if ArrayP{i] 

eq N! (2, 4, 3, 5) 

then Sch{i]; 

end if; end for; 

prodim := function(pt, Q, I) 

vi=pt; 

for i in I do 

yxy). 
end for; 
return V; 
end function; 


ts := [| Id(G1): iin [1 .. 5] J; 


ts[1]:=f(t); ts[2]:=f(t”); ts[3]:=f(t@); ts[4]:=f(t@); ts[5]:-=£(¢@); 


cst:=[null : i in [1 .. Index(G,sub< Gz, y >)]] 
where null is [Integers( ) | ]; 

for i:= 1 to 5 do 

cst[prodim(1, ts, [i])]:=[i]; 

end for; 

m:=0; for iin [1 .. 36] do if cst{i] ne [ | 


then m:=m-+1; end if; end for; m; 


N1:=Stabiliser(N,[1]); 
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SL); 

SS:=5" 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do 

if ts[1] eq g*ts[Rep(SSS|i})[1]] 
then print SSS{i]; 

end if; end for; end for; 

Nis:=N1; 

# Nils; 

T1:=Transversal(N,N1s); 

# T1; 

foric= 1 to T1-do 

se | LE 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0;for i in [1 .. 36] do if cst]i] ne | |] 
then m:=m-+1; end if; end for; m; 
Orbits(N1s); 


N12:=Stabiliser(N,[1,2]); 
Dial 

SS:=S; 
SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
then print SSS{iJ; 

end if; end for; end for; 
N12s:=N12; 

# N12s; 
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T12:=Transversal(N,N12s); 

= a aes 

fori = 1 to # T12‘do 

sao [1 o)F eH. 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N12s); 
N121:=Stabiliser(N,[1,2,1]); 
SiS 52.1} 

SS:=S*; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1] 
eq g*ts[Rep(SSS|[i})[1]]*ts[Rep(SSS[i] )[2]] 
*ts[Rep(SSS[i]) [3] 

then print SSS{i]; 

end if; end for; end for; 
N121s:=N121; 

# N121s: 
T121:=Transversal(N,N121s); 
#7121: 

for’) =Thito FF P12 1-do 

see | ote 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne [ | 


then m:=m-+1; end if; end for; m; 
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Orbits(N121s); 


N123:=Stabiliser(N,|1,2,3]); 
S| 3 esao: 
SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[3] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSSIi]) [3] 

then print SSS{i]; 

end if; end for; end for; 
N123s:=N123; 

# N123s; 
T123:=Transversal(N,N123s); 
ae CS: 

fori lito F123 do 

sss] (2G) 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N123s); 


N124:=Stabiliser(N,|1,2,4]); 

5:= (1,254); 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts|4] 

eq g*ts[Rep(SSSf[i])[1]]*ts[Rep(SSSIi]) [2]] 
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*ts[Rep(SSSIi]) [3] 

then print SSS{iJ; 

end if; end for; end for; 
N124s:=N124; 

# N124s; 
T124:=Transversal(N,N124s); 
ard 24: 

for i:= 1 to # T124 do 

sai 2 Ale 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N124s); 


N125:=Stabiliser(N,|1,2,5]); 
S| 1,2.5); 

SS:=S; 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[5] 
eq g*ts[Rep(SSS[i))[1]]*ts[Rep(SSS|i]) [2]] 
*ts[Rep(SSS|i])[3]] 

then print SSS{iJ; 

end if; end for; end for; 
N125s:=N125; 

# N125s; 
T125:=Transversal(N,N125s); 
47195; 
T125:=Transversal(N,N125s); 


for i := 1 to # T125 do 

SSS Ses 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne [ | 
then m:=m-+1; end if; end for; m; 
Orbits(N125s); 


N1215:=Stabiliser(N,[1,2,1,5]); 

o= (1,2, 15): 

S§S:=8": 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[5] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSSIi])[3]]*ts[Rep(SSS|i]) [4]] 
then print SSS{i]; 

end if; end for; end for; 
N1215s:=N1215; 

# N1215s; 
T1215:=Transversal(N,N1215s); 

# T1215: 

fori c= ‘kto 4 V121bdo.63 = (1,2, 15) Pe: 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1215s); 
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N1245:=Stabiliser(N,[1,2,4,5]); 

p= (240) 

soo. 

SSS:=Setseq(SS); 

for i in [1 .. # SS] do 

for g in IN do if ts[1]*ts[2]*ts[4]*ts[5] 
eq g*ts[Rep(SSS|i])[1]]*ts[Rep(SSS[i] ) [2] 
*ts[Rep(SSSIi])[3]]*ts[Rep(SSS|i]) [4] 
then print SSS{i]; 

end if; end for; end for; 
N1245s:—N1245: 

4 N1245s: 
T1245:=Transversal(N,N1245s); 

4 T1245; 

for 161, 40 #11245 do ss = [1,254.5]? 12u, 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for iin [1 .. 36] do if cst{i] ne | | 
then m:=m-+1; end if; end for; m; 
Orbits(N1245s); 
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